--- gforth/glocals.fs	1994/07/29 11:16:23	1.5
+++ gforth/glocals.fs	1995/01/30 18:47:50	1.9
@@ -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 ;
 
@@ -134,7 +134,8 @@ variable locals-dp \ so here's the speci
     postpone lp@ postpone c! ;
 
 : create-local ( " name" -- a-addr )
-	\ defines the local "name"; the offset of the local shall be stored in a-addr
+    \ defines the local "name"; the offset of the local shall be
+    \ stored in a-addr
     create
 	immediate
 	here 0 , ( place for the offset ) ;
@@ -263,7 +264,7 @@ locals-types definitions
 
 : -- ( addr wid 0 ... -- )
     }
-    [char] } word drop ;
+    [char] } parse 2drop ;
 
 forth definitions
 
@@ -508,5 +509,10 @@ 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