Loading see.fs +1 −1 Original line number Diff line number Diff line Loading @@ -405,7 +405,7 @@ VARIABLE C-Pass \ prints a name without () and without -LP+!#, e.g. a (+LOOP) or (s") dup cell- @ threaded>name dup IF dup ``(/loop)# = over ``(/loop)#-lp+!# = or if drop ``+loop then over c@ '( = IF name>string over c@ '( = IF 1 /string THEN 2dup "-lp+!#" string-suffix? if 6 - then Loading update-copyright-blacklist +1 −0 Original line number Diff line number Diff line Loading @@ -387,6 +387,7 @@ engine/getopt.h engine/getopt1.c engine/hppa-cache.c engine/ia64-flush_icache_block.c engine/longlong.h engine/mips_check_prim.c engine/power_sync_cache_range.c engine/strtol.c Loading Loading
see.fs +1 −1 Original line number Diff line number Diff line Loading @@ -405,7 +405,7 @@ VARIABLE C-Pass \ prints a name without () and without -LP+!#, e.g. a (+LOOP) or (s") dup cell- @ threaded>name dup IF dup ``(/loop)# = over ``(/loop)#-lp+!# = or if drop ``+loop then over c@ '( = IF name>string over c@ '( = IF 1 /string THEN 2dup "-lp+!#" string-suffix? if 6 - then Loading
update-copyright-blacklist +1 −0 Original line number Diff line number Diff line Loading @@ -387,6 +387,7 @@ engine/getopt.h engine/getopt1.c engine/hppa-cache.c engine/ia64-flush_icache_block.c engine/longlong.h engine/mips_check_prim.c engine/power_sync_cache_range.c engine/strtol.c Loading