version 1.4, 1994/07/08 15:00:43
|
version 1.5, 1994/07/29 11:16:23
|
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 |