WIP to find crashing problem generating eturtle.exe

diff --git a/boot.f b/boot.f
index 07b0b0d..0435c84 100644 (file)
--- a/boot.f
+++ b/boot.f
@@ -141,7 +141,8 @@ DECIMAL
 \              'status' USER variable is stored in 'follower' USER variable\r
 \              of current task.\r
 \r
-: PAUSE                rp@ DUP sp@ stackTop !  follower @ code@ >R ; COMPILE-ONLY\r
+\ problem\r
+\ : PAUSE              rp@ DUP sp@ stackTop !  follower @ code@ >R ; COMPILE-ONLY\r
 \r
 \                $COLON  NamePAUSE,PAUSE\r
 \                DW      RPFetch,DUPP,SPFetch,StackTop,Store\r
@@ -636,7 +637,7 @@ DECIMAL
 \   code,      ( x -- )\r
 \              Reserve one cell in code space and store x in it.\r
 \r
-: code,                xhere DUP CELL+ TO xhere code! ; COMPILE-ONLY\r
+: code,                xhere DUP CELL+ TO xhere code! ;\r
 \r
 \                $COLON  NameCodeComma,CodeComma\r
 \                DW      XHere,DUPP,CELLPlus,DoTO,AddrXHere,CodeStore,EXIT\r
@@ -1541,7 +1542,7 @@ DECIMAL
 : pack"                2DUP SWAP CHARS + CHAR+ DUP >R  \ ca u aa aa+u+1\r
                ALIGNED cell- 0 SWAP !          \ fill 0 at the end of string\r
                2DUP C! CHAR+ SWAP              \ c-addr a-addr+1 u\r
-               CHARS MOVE R> ALIGNED ; COMPILE-ONLY\r
+               CHARS MOVE R> ALIGNED ;\r
 \r
 \                $COLON  5,'pack"',PackQuote,_SLINK\r
 \                DW      TwoDUP,SWAP,CHARS,Plus,CHARPlus,DUPP,ToR\r
@@ -2020,6 +2021,7 @@ DECIMAL
 : :NONAME      bal IF -29 THROW THEN           \ compiler nesting\r
                ['] doLIST xt, DUP -1\r
                0 TO notNONAME?  1 TO bal  ] ;\r
+               IMMEDIATE\r
 \r
 \              $COLON  NameColonNONAME,ColonNONAME\r
 \              DW      Bal,ZBranch,NONAME1\r
@@ -3161,7 +3163,7 @@ DECIMAL
 \   (          ( "ccc<)>" -- )                 \ CORE\r
 \              Ignore following string up to next ) . A comment.\r
 \r
-: (            [CHAR] ) PARSE 2DROP ;\r
+: (            [CHAR] ) PARSE 2DROP ; IMMEDIATE\r
 \r
 \              $COLON  NameParen,Paren\r
 \              DW      DoLIT,')',PARSE,TwoDROP,EXIT\r
@@ -3265,7 +3267,7 @@ DECIMAL
 \              Run-time ( i*x x1 -- | i*x ) ( R: j*x -- | j*x )\r
 \              Conditional abort with an error message.\r
 \r
-: ABORT"       S" POSTPONE ROT\r
+: ABORT"       POSTPONE S" POSTPONE ROT\r
                POSTPONE IF POSTPONE abort"msg POSTPONE 2!\r
                -2 POSTPONE LITERAL POSTPONE THROW\r
                POSTPONE ELSE POSTPONE 2DROP POSTPONE THEN\r

diff --git a/optional.f b/optional.f
index fe00a10..57cf37f 100644 (file)
--- a/optional.f
+++ b/optional.f
@@ -4,8 +4,8 @@
 \\r
 \ by Wonyong Koh\r
 \\r
-; 1997. 7. 11.\r
-;       Fix D.R . Thank Benjamin Hoyt.\r
+\ 1997. 7. 11.\r
+\       Fix D.R . Thank Benjamin Hoyt.\r
 \ 1997. 2. 28.\r
 \      Facelift to be used with other CPUs.\r
 \ 1996. 12. 6.\r