diff options
| author | Joel Martin <github@martintribe.org> | 2014-04-01 21:50:24 -0500 |
|---|---|---|
| committer | Joel Martin <github@martintribe.org> | 2014-04-01 21:50:24 -0500 |
| commit | 950e3c765e30648de34cfc4f65fffdce06f0727f (patch) | |
| tree | 3e66b70a71a5cfa01671830d80d7ea7926509b2d /ps/reader.ps | |
| parent | 704194e12c5080f5c6842416a78fe7efa09da068 (diff) | |
| download | mal-950e3c765e30648de34cfc4f65fffdce06f0727f.tar.gz mal-950e3c765e30648de34cfc4f65fffdce06f0727f.zip | |
PS: add stepA_more.
Sync other steps. In particular, self reference in function definition
and putting readline into _readline function.
Diffstat (limited to 'ps/reader.ps')
| -rw-r--r-- | ps/reader.ps | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/ps/reader.ps b/ps/reader.ps index e524d4c..dba2a4a 100644 --- a/ps/reader.ps +++ b/ps/reader.ps @@ -184,9 +184,13 @@ (unexpected '[') throw }{ ch 93 eq { %elseif ']' (unexpected ']') throw + }{ ch 123 eq { %elseif '{' + (unexpected '{') throw + }{ ch 125 eq { %elseif '}' + (unexpected '}') throw }{ % else str idx read_atom - } ifelse } ifelse } ifelse } ifelse } ifelse } ifelse } ifelse + } ifelse } ifelse } ifelse } ifelse } ifelse } ifelse } ifelse } ifelse } ifelse % return: ast string new_idx end } def |