--- gforth/Attic/vars.fs 1995/11/07 18:07:04 1.8 +++ gforth/Attic/vars.fs 1996/01/07 17:22:16 1.11 @@ -43,8 +43,6 @@ FF Constant /line \ User variables 13feb93py -\ doesn't produce real user variables now, but normal variables - Create main-task 100 cells allot main-task tup H ! minimal @@ -65,14 +63,13 @@ AUser errorhandler AUser "error 0 "error ! + User tibstack User >tib User #tib User >in 0 >in ! User blk 0 blk ! User loadfile 0 loadfile ! -\ 2User loadfilename 0 0 loadfilename 2! -\ here ," the terminal" align here swap count 2, Value loadfilename -\ align here 0 , 0 , Value loadfilename \ !! should be a `user-value' + User loadfilename# 0 loadfilename# ! User loadline \ number of the currently interpreted