Overview
| SHA1 Hash: | 71793b0520ab64d4f47a21664fc19dcab21f342c |
|---|---|
| Date: | 2010-06-14 17:26:44 |
| User: | crc |
| Comment: | alexandria; use .data instead of literal, |
| Timelines: | family | ancestors | descendants | both | trunk |
| Other Links: | files | manifest |
Tags And Properties
- branch=trunk inherited from [dc67bca1f3]
- sym-trunk inherited from [dc67bca1f3]
Changes
[hide diffs]
[patch]Modified retroImage from [d52fd1c4378f68f1] to [9e659d720b89d831].
cannot compute difference between binary files
Modified user/crc/alexandria.retro from [42b05bd400b271cd] to [bcccc53e418dfd9b].
@@ -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 ;
{{