Commit 90a171f1 authored by bp's avatar bp
Browse files

Fixed problem with overlong class+method names

git-svn-id: https://forth-ev.de/repos/bigforth@1715 3b8d8251-53f3-0310-8f3b-fd1cb8370982
parent 403ce5ee
......@@ -54,7 +54,7 @@
?DO I in_which? dup 0= IF I @ swap THEN "name
+LOOP $sum @ count ;
: .back relinfo $100 - "back type
: .back relinfo $100 - ['] "back catch 0= IF type ELSE drop THEN
backtrace $18 cells + off ;
also dos
......@@ -67,4 +67,4 @@ also dos
(error cr .back .except dumped $B cells + on ;
previous
' (file-error errorhandler !
\ No newline at end of file
' (file-error errorhandler !
This diff is collapsed.
......@@ -552,7 +552,7 @@ previous theseus definitions
2dup cur file-name $!
Onlyforth minos also minos-load also
['] included catch dup open-failed# <> IF throw 0 THEN
drop strip-names Onlyforth cur save-state off
IF 2drop THEN strip-names Onlyforth cur save-state off
cur with
s" Θησεύς: " window title! file-name $@ window title+!
endwith
......
Supports Markdown
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