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

[honu] use brackets to do list lookup instead of using dot

Browse Source
This commit is contained in:
Jon Rafkind 2011-08-11 11:38:45 -06:00
parent d948626fac
commit 5157a333bb
3 changed files with 17 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
collects/honu/core/private/extra.rkt Normal file
View File

@ -0,0 +1,5 @@
#lang racket/base
(provide do-lookup)
(define (do-lookup data slice)
(list-ref data slice))

1
collects/honu/core/private/honu2.rkt
View File

@ -94,6 +94,7 @@
#'(let ([left* left]
[right* right])
(cond
#;
[(list? left*)
(list-ref left* right*)]
[else (error 'dot "don't know how to deal with ~a and ~a" left* right*)])))))

13
collects/honu/core/private/parse2.rkt
View File

@ -16,7 +16,8 @@
;; phase -1
(require (for-template racket/base
racket/splicing))
racket/splicing
"extra.rkt"))
(provide parse parse-all)
@ -224,19 +225,27 @@
(if current
(values (left current) stream)
(do-parse #'(rest ...) precedence left #'x))]
;; [1, 2, 3] -> (list 1 2 3)
[(#%brackets stuff ...)
(define value (with-syntax ([(data ...)
(parse-comma-expression #'(stuff ...))])
#'(list data ...)))
(define lookup (with-syntax ([(data ...)
(parse-comma-expression #'(stuff ...))]
[current current])
#'(do-lookup current data ...)))
(if current
(values (left current) stream)
;; (values (left current) stream)
(do-parse #'(rest ...) precedence left lookup)
(do-parse #'(rest ...) precedence left value))]
;; block of code
[(#%braces stuff ...)
(if current
(values (left current) stream)
(let ()
(define body (parse-all #'(stuff ...)))
(do-parse #'(rest ...) precedence left body)))]
;; expression or function application
[(#%parens args ...)
(if current
(let ()