Commit 9f9a0307 authored by Bernd Paysan's avatar Bernd Paysan

Use CATCH instead of TRY in addr? as workaround for Windows problem

parent 6316024f
Pipeline #1173 passed with stage
in 9 minutes and 49 seconds
......@@ -21,7 +21,7 @@
\ idea: Gerald Wodni
: addr? ( addr -- flag )
TRY c@ IFERROR 2drop false nothrow ELSE drop true THEN ENDTRY ;
['] c@ catch IF drop false nothrow ELSE drop true THEN ;
: .var? ( addr -- flag )
TRY body> @ dovar: <> throw IFERROR 2drop false nothrow
ELSE true THEN ENDTRY ;
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment