version 1.4, 1994/07/08 15:00:43
|
version 1.6, 1994/08/31 19:42:47
|
Line 87 include search-order.fs
|
Line 87 include search-order.fs
|
\ lp must have the strictest alignment (usually float) across calls; |
\ lp must have the strictest alignment (usually float) across calls; |
\ for simplicity we align it strictly for every group. |
\ for simplicity we align it strictly for every group. |
|
|
|
slowvoc @ |
|
slowvoc on \ we want a linked list for the vocabulary locals |
vocabulary locals \ this contains the local variables |
vocabulary locals \ this contains the local variables |
' locals >body ' locals-list >body ! |
' locals >body ' locals-list >body ! |
|
slowvoc ! |
|
|
create locals-buffer 1000 allot \ !! limited and unsafe |
create locals-buffer 1000 allot \ !! limited and unsafe |
\ here the names of the local variables are stored |
\ here the names of the local variables are stored |
Line 505 forth definitions
|
Line 508 forth definitions
|
endif |
endif |
endif ; immediate |
endif ; immediate |
|
|
\ : locals| |
: locals| |
\ !! should lie around somewhere |
BEGIN sname 2dup s" |" compare 0= WHILE |
|
(local) REPEAT drop 0 (local) ; immediate restrict |