Commit 19db28b4 authored by Bernd Paysan's avatar Bernd Paysan

small fix for cross.fs

parent c3b94318
......@@ -591,8 +591,7 @@ false DebugFlag showincludedfiles
IF cr ." Including: " 2dup type ." ..." THEN
rot close-file throw
source-desc >r
add-included-file to source-desc
2dup add-included-file to source-desc
['] included catch
r> to source-desc
throw ;
Markdown is supported
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment