From d899077866dd31eafde4391394a914929f30a629 Mon Sep 17 00:00:00 2001 From: Jan Nieuwenhuizen Date: Sat, 26 Oct 2019 13:17:00 +0200 Subject: [PATCH] pointer --- build-aux/pointer.sh | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/build-aux/pointer.sh b/build-aux/pointer.sh index 39c74095..9f6ad3af 100755 --- a/build-aux/pointer.sh +++ b/build-aux/pointer.sh @@ -4,6 +4,7 @@ set -x ptr_once='s,([^N])(MACRO|NAME|VALUE) \(([^()]*)\),\1\3->\L\2,' ptr_once='s,([^N])(BYTES|CAR|CDR|CLOSURE|CONTINUATION|LENGTH|MACRO|NAME|PORT|REF|STRING|STRUCT|TYPE|VALUE|VARIABLE|VECTOR) \(([^()]*)\),\1\3->\L\2,' +n_once='s,N(TYPE|CAR|CDR|VECTOR) \(([^()]*)\),\2->\L\1,' ncbytes='s,NC(BYTES) \(([^()]*)\),news_\L\1 (\2),' cbytes='s,([^N])C(BYTES) \(([^()]*)\),\1cell_\L\2 (\3),' cstring='s,C(STRING) \(([^()]*)\),cell_bytes (STRING (\2)),' @@ -25,9 +26,8 @@ sed -ri \ -e 's,->\,->structure,g' \ -e "$struct" \ \ - -e 's,NTYPE \(([^()]*)\),\1->type,' \ - -e 's,NCAR \(([^()]*)\),\1->car,' \ - -e 's,NCDR \(([^()]*)\),\1->cdr,' \ + -e "$n_once" \ + -e "$n_once" \ \ -e 's,CAR \(([^()]*)\),\1->cdr,' \ -e 's,CAAR \(([^()]*)\),\1->car->car,' \