version 1.23, 1994/11/11 16:10:12
|
version 1.24, 1994/11/15 15:55:39
|
Line 1
|
Line 1
|
\ KERNAL.FS ANS figFORTH kernal 17dec92py |
\ KERNAL.FS GNU FORTH kernal 17dec92py |
\ $ID: |
\ $ID: |
\ Idea and implementation: Bernd Paysan (py) |
\ Idea and implementation: Bernd Paysan (py) |
\ Copyright 1992 by the ANSI figForth Development Group |
\ Copyright 1992 by the ANSI figForth Development Group |
Line 1404 Variable argc
|
Line 1404 Variable argc
|
THEN |
THEN |
+LOOP ; |
+LOOP ; |
|
|
|
Defer 'cold ' noop IS 'cold |
|
|
: cold ( -- ) |
: cold ( -- ) |
|
'cold |
pathstring 2@ process-path pathdirs 2! |
pathstring 2@ process-path pathdirs 2! |
argc @ 1 > |
argc @ 1 > |
IF |
IF |