Changeset 2912

Timestamp:

Mar 21, 2012 11:25:54 PM (14 months ago)

Author:

wmb

Message:

## Lines starting with '## ' will be removed from the log message.
## File(s) to commit recursively:
## forth/lib/decomp.fth
Decompiler - fixed oops in last checkin (indentation for "loop")

File:

• forth/lib/decomp.fth (modified) (1 diff)

forth/lib/decomp.fth

@@ -310 +310 @@
 : .do     ( ip -- ip' )  .." do    " +indent  +branch  ;
 : .?do    ( ip -- ip' )  .." ?do   " +indent  +branch  ;
-: .loop   ( ip -- ip' )  .." loop  " cr +branch  ;
+: .loop   ( ip -- ip' )  -indent .." loop  " cr +branch  ;
 : .+loop  ( ip -- ip' )  -indent .." +loop " cr +branch  ;
 : .of     ( ip -- ip' )  .." of   " +branch  ;