--- gforth/glocals.fs 2011/12/31 15:29:25 1.63 +++ gforth/glocals.fs 2012/02/07 16:48:55 1.65 @@ -88,10 +88,6 @@ require search.fs require float.fs require extend.fs \ for case -: save-mem-dict ( addr1 u -- addr2 u ) - here swap dup allot ( addr1 addr2 u ) - 2dup 2>r move 2r> ; - : compile-@local ( n -- ) \ gforth compile-fetch-local case 0 of postpone @local0 endof @@ -217,7 +213,7 @@ variable locals-mem-list \ linked list o \ warn if list is not a sublist of locals-list locals-list @ sub-list? 0= if \ !! print current position - ." compiler was overly optimistic about locals at a BEGIN" cr + >stderr ." compiler was overly optimistic about locals at a BEGIN" cr \ !! print assumption and reality then ;