[bug #63038] CONST-DOES> curry example fails

[Stephan Rudlof]

Follow-up Comment #2, bug #63038 (project gforth):

Fix working :-)

But the '+' in code of 3+ is not visible by 'see 3+' (simple '4+' for
comparison):

sr@rs:~/Gforth$ cat t_curry.fs
: curry+ ( n1 "name" -- )
1 0 CONST-DOES> ( n2 -- n1+n2 )
    + ;

3 curry+ 3+

: 4+ #4 + ;

see 3+
see 4+

cr
3 3+ .
4 4+ .
cr
sr@rs:~/Gforth$ gforth t_curry.fs 

: 3+  #3 
  
  ;
: 4+  
  #4 + ;
6 8 
Gforth 0.7.9_20220901
Authors: Anton Ertl, Bernd Paysan, Jens Wilke et al., for more type `authors'
...



    _______________________________________________________

Reply to this item at:

  <https://savannah.gnu.org/bugs/?63038>

_______________________________________________
Message sent via Savannah
https://savannah.gnu.org/