Index: retroImage =================================================================== --- retroImage +++ retroImage cannot compute difference between binary files Index: user/crc/alexandria.retro =================================================================== --- user/crc/alexandria.retro +++ user/crc/alexandria.retro @@ -78,17 +78,17 @@ {{ : chop ( $-$ ) dup getLength + 1- 0 swap ! ; : (%{) ( "- ) char: = accept tib keepString dup chop ; ---reveal--- - : %{ ( "- ) @compiler if ahead (%{) here rot ! literal, + : %{ ( "- ) @compiler if ahead (%{) here rot ! .data else (%{) then ; immediate }} : }% ( t$x- ) rot add-entry ; : @" ( t"- ) @compiler if - ahead " keepString here rot ! literal, else " + ahead " keepString here rot ! .data else " then ` swap ` get-entry ; immediate : 'type' ( $- ) char: ' emit type char: ' emit space ; {{