mirror of
https://github.com/justinethier/cyclone.git
synced 2025-07-15 08:47:35 +02:00
Read hex scalar values
This commit is contained in:
parent
3a79a0f181
commit
949aef875f
2 changed files with 4 additions and 1 deletions
2
TODO
2
TODO
|
@ -27,7 +27,7 @@ Tier 1:
|
||||||
- fib.scm
|
- fib.scm
|
||||||
- gcbench.scm - Needed to manually import (srfi 9)
|
- gcbench.scm - Needed to manually import (srfi 9)
|
||||||
- graphs.scm
|
- graphs.scm
|
||||||
- lattice.scm - Error: run: unanticipated problem size 44. may be a problem with numbers and (case)
|
- lattice.scm
|
||||||
- matrix.scm
|
- matrix.scm
|
||||||
- mazefun.scm
|
- mazefun.scm
|
||||||
- maze.scm - There is a problem reading the input file
|
- maze.scm - There is a problem reading the input file
|
||||||
|
|
|
@ -437,6 +437,9 @@
|
||||||
(integer->char 32))
|
(integer->char 32))
|
||||||
((equal? buf '(#\t #\a #\b))
|
((equal? buf '(#\t #\a #\b))
|
||||||
(integer->char 9))
|
(integer->char 9))
|
||||||
|
((and (> (length buf) 1)
|
||||||
|
(equal? (car buf) #\x))
|
||||||
|
(integer->char (string->number (list->string (cdr buf)) 16)))
|
||||||
(else
|
(else
|
||||||
(parse-error (string-append
|
(parse-error (string-append
|
||||||
"unable to parse character: "
|
"unable to parse character: "
|
||||||
|
|
Loading…
Add table
Reference in a new issue