diff options
| author | Joel Martin <github@martintribe.org> | 2014-03-29 17:01:24 -0500 |
|---|---|---|
| committer | Joel Martin <github@martintribe.org> | 2014-03-29 17:01:24 -0500 |
| commit | 55e2bfa8a3a9fb98a405321d1183a3fbc872d118 (patch) | |
| tree | 8ce077e5d94ff5c37ab2fa55af342af2e310ba9f /ps/reader.ps | |
| parent | 1b4a9012c540309ebe26b6ffff80ad44f15530d9 (diff) | |
| download | mal-55e2bfa8a3a9fb98a405321d1183a3fbc872d118.tar.gz mal-55e2bfa8a3a9fb98a405321d1183a3fbc872d118.zip | |
PS: step2_eval
Diffstat (limited to 'ps/reader.ps')
| -rw-r--r-- | ps/reader.ps | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/ps/reader.ps b/ps/reader.ps index 4be0c0f..0fa4c02 100644 --- a/ps/reader.ps +++ b/ps/reader.ps @@ -86,7 +86,8 @@ exit % EOF }{ /ch str idx get def % current character - ch 48 ge ch 57 le and 45 ch eq or { %if number + %ch 48 ge ch 57 le and 45 ch eq or { %if number + ch 48 ge ch 57 le and { %if number str idx read_number }{ ch 34 eq { %elseif double-quote str idx read_string |