Build problem also for 0.7.3 fixed

8dac6e1e · Bernd Paysan · 35fa40d1 · 8dac6e1e
Commit 8dac6e1e authored Aug 27, 2016 by Bernd Paysan
Hide whitespace changes
Inline Side-by-side

Showing with 2 additions and 2 deletions

cross.fs cross.fs +2 -2

No files found.
--- a/cross.fs
+++ b/cross.fs
@@ -595,8 +595,8 @@ false DebugFlag showincludedfiles
  IF	cr ." Including: " 2dup type ." ..." THEN
  rot close-file throw
  source-desc >r
-  2dup add-included-file to source-desc 
-  ['] included catch
+  add-included-file to source-desc
+  sourcefilename ['] included catch
  r> to source-desc 
  throw ;