Verified Commit 8dac6e1e authored by Bernd Paysan's avatar Bernd Paysan
Browse files

Build problem also for 0.7.3 fixed

parent 35fa40d1

cross.fs

+2 −2
Original line number Diff line number Diff line
@@ -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 ;