--- gforth/glocals.fs	1994/07/29 11:16:23	1.5
+++ gforth/glocals.fs	1994/09/12 19:00:30	1.7
@@ -61,22 +61,22 @@
 \ Currently locals may only be
 \ defined at the outer level and TO is not supported.
 
-include float.fs
 include search-order.fs
+include float.fs
 
 : compile-@local ( n -- )
  case
-    0 of postpone @local0 endof
-    4 of postpone @local4 endof
-    8 of postpone @local8 endof
-   12 of postpone @local12 endof
+    0       of postpone @local0 endof
+    1 cells of postpone @local1 endof
+    2 cells of postpone @local2 endof
+    3 cells of postpone @local3 endof
    ( otherwise ) dup postpone @local# ,
  endcase ;
 
 : compile-f@local ( n -- )
  case
-    0 of postpone f@local0 endof
-    8 of postpone f@local8 endof
+    0        of postpone f@local0 endof
+    1 floats of postpone f@local1 endof
    ( otherwise ) dup postpone f@local# ,
  endcase ;
 
@@ -508,5 +508,6 @@ forth definitions
    endif
  endif ; immediate
 
-\ : locals|
-\ !! should lie around somewhere
+: locals|
+  BEGIN  name 2dup s" |" compare 0=  WHILE
+         (local)  REPEAT  drop 0 (local) ;  immediate restrict