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