Commit c00d5ec1 authored by bp's avatar bp
Browse files

fix stack bug in does-comp 

git-svn-id: https://forth-ev.de/repos/bigforth@1425 3b8d8251-53f3-0310-8f3b-fd1cb8370982
parent 569d9837

does-comp.fs

+1 −1
Original line number Diff line number Diff line
@@ -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,