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

upgrade to #lang scheme

Browse Source 
svn: r15345
This commit is contained in:
Jon Rafkind 2009-06-30 21:05:16 +00:00
parent 3d356123cf
commit b55944bb93
2 changed files with 151 additions and 151 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/honu/private/contexts.ss
View File

@ -1,4 +1,4 @@
(module contexts mzscheme
#lang scheme
(define-struct block-context (return?))
(define-struct (top-block-context block-context) ())
@ -76,4 +76,4 @@
the-type-or-expression-context
the-prototype-context
context->name))
context->name)

24
collects/honu/private/ops.ss
View File

@ -1,12 +1,12 @@
#lang scheme
(module ops mzscheme
(provide unary-prefix-ops
unary-postfix-ops
(struct op (id))
(struct prefix ())
(struct cast-prefix (type))
(struct infix ())
(struct postfix ())
(struct-out op)
(struct-out prefix)
(struct-out cast-prefix)
(struct-out infix)
(struct-out postfix)
prec-key
precedence-table
op-table)
@ -35,7 +35,7 @@
[(postfix? op) 'post])
(syntax-e (op-id op)))))
(define precedence-table (make-immutable-hash-table
(define precedence-table (make-immutable-hash
'(((in . |.|) . 100)
((in . #%parens) . 100)
((in . #%brackets) . 100)
@ -82,10 +82,10 @@
((in . >>>=) . 10)
((in . \,) . 6)
((in . :) . 5)
((in . ?) . 4))
'equal))
((in . ?) . 4))))
(define op-table (make-hash-table))
(hash-table-for-each precedence-table (lambda (k v)
(hash-table-put! op-table (cdr k) #t))))
(define op-table (make-hash))
(hash-for-each precedence-table (lambda (k v)
(hash-set! op-table (cdr k) #t)))