suzanne.soy/beautiful-racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

make format-datum return void on empty input

Browse Source
This commit is contained in:
Matthew Butterick 2016-08-03 10:44:33 -07:00
parent 9cee43af40
commit 48c17bd852
1 changed files with 7 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
beautiful-racket-lib/br/datum.rkt
View File

@ -3,12 +3,14 @@
(provide (all-defined-out)) (provide (all-defined-out))
;; read "foo bar" the same way as "(foo bar)" ;; read "foo bar" the same way as "(foo bar)"
;; other "bar" is dropped, which is too astonishing ;; otherwise "bar" is dropped, which is too astonishing
(define (string->datum str) (define (string->datum str)
(let ([result (read (open-input-string (format "(~a)" str)))]) (if (positive? (string-length str))
(if (= (length result) 1) (let ([result (read (open-input-string (format "(~a)" str)))])
(car result) (if (= (length result) 1)
result))) (car result)
result))
(void)))
#;(define-syntax format-datum #;(define-syntax format-datum
(λ(stx) (λ(stx)