Commit c00d5ec1 authored by bp's avatar bp

fix stack bug in does-comp

git-svn-id: https://forth-ev.de/repos/bigforth@1425 3b8d8251-53f3-0310-8f3b-fd1cb8370982
parent 569d9837
......@@ -11,6 +11,6 @@
does? IF
$68 c, here relon here 14 + ,
$68 c, here relon dup >body , cfa@ compile, here 5 - dup c@ 1+ swap c!
rdrop EXIT THEN ;
rdrop drop EXIT THEN ;
' does, is 'cfa,
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