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

[honu] dont need extra prefixes for require

Browse Source
This commit is contained in:
Jon Rafkind 2011-11-18 22:00:08 -07:00
parent 4c00c26cd5
commit 40eeeb6a72
1 changed files with 48 additions and 48 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

96
collects/honu/core/main.rkt
View File

@ -3,57 +3,57 @@
(define-syntax-rule (standard-honu meta-level) (define-syntax-rule (standard-honu meta-level)
(begin (begin
(require (for-meta meta-level (require (for-meta meta-level
(prefix-in racket: racket/base) racket/base
(prefix-in honu: "private/macro2.rkt") "private/macro2.rkt"
(prefix-in honu: "private/class.rkt") "private/class.rkt"
(prefix-in literal: "private/literals.rkt") (prefix-in literal: "private/literals.rkt")
(prefix-in syntax-parse: syntax/parse) (prefix-in syntax-parse: syntax/parse)
(prefix-in racket: racket/base) (prefix-in racket: racket/base)
(prefix-in parse: "private/parse2.rkt") (prefix-in parse: "private/parse2.rkt")
(prefix-in honu: "private/honu2.rkt"))) "private/honu2.rkt"))
(provide (for-meta meta-level (provide (for-meta meta-level
(rename-out [parse:honu-expression expression] (rename-out [parse:honu-expression expression]
[parse:honu-identifier identifier] [parse:honu-identifier identifier]
[honu:honu-function function] [honu-function function]
[honu:honu-var var] [honu-var var]
[honu:honu-equal =] [honu-equal =]
[honu:honu--> %arrow] [honu--> %arrow]
[honu:honu-class class] [honu-class class]
[honu:honu-require require] [honu-require require]
[honu:honu-new new] [honu-new new]
[honu:honu-while while] [honu-while while]
[honu:honu-macro macro] [honu-macro macro]
[honu:honu-with-input-from-file with_input_from_file] [honu-with-input-from-file with_input_from_file]
[honu:define-make-honu-operator operator] [define-make-honu-operator operator]
[honu:honu-match match] [honu-match match]
[honu:honu-with with] [honu-with with]
[honu:honu-var var] [honu-var var]
[honu:honu-val val] [honu-val val]
[honu:honu-for for] [honu-for for]
[honu:honu-if if] [honu-if if]
[honu:honu-quote quote] [honu-quote quote]
[honu:honu-quasiquote quasiquote] [honu-quasiquote quasiquote]
[honu:honu-+ +] [honu:honu-- -] [honu-+ +] [honu-- -]
[honu:honu-* *] [honu:honu-/ /] [honu-* *] [honu-/ /]
[honu:honu-modulo %] [honu-modulo %]
[honu:honu-^ ^] [honu-^ ^]
[honu:honu-> >] [honu:honu-< <] [honu-> >] [honu-< <]
[honu:honu->= >=] [honu->= >=]
[honu:honu-<= <=] [honu-<= <=]
[honu:honu-equal =] [honu-equal =]
[honu:honu-assignment :=] [honu-assignment :=]
[honu:honu-map map] [honu-map map]
[honu:honu-flow \|] [honu-flow \|]
[honu:honu-dot %dot] [honu-dot %dot]
[honu:honu--> %arrow] [honu--> %arrow]
[honu:honu-string=? string_equal] [honu-string=? string_equal]
[honu:honu-cons ::] [honu-cons ::]
[honu:honu-and and] [honu:honu-and &&] [honu-and and] [honu-and &&]
[honu:honu-or or] [honu:honu-or \|\|] [honu-or or] [honu-or \|\|]
[honu:honu-not not] [honu:honu-not !] [honu-not not] [honu-not !]
[honu:honu-structure structure] [honu-structure structure]
[honu:honu-structure struct] [honu-structure struct]
[honu:honu-syntax syntax] [honu-syntax syntax]
[literal:honu-prefix prefix] [literal:honu-prefix prefix]
[literal:honu-then then] [literal:honu-then then]
[literal:colon %colon] [literal:colon %colon]
@ -65,10 +65,10 @@
[literal:#%brackets #%brackets] [literal:#%brackets #%brackets]
[literal:#%braces #%braces] [literal:#%braces #%braces]
[literal:#%parens #%parens]) [literal:#%parens #%parens])
racket:print racket:printf print printf
honu:true honu:false true false
honu:withSyntax withSyntax
honu:mergeSyntax mergeSyntax
)))) ))))
(require "private/honu-typed-scheme.rkt") (require "private/honu-typed-scheme.rkt")