#lang racket/base (require (prefix-in racket: (combine-in racket/base racket/list))) ;; require's and provide's a module (define-syntax-rule (provide-module module ...) (begin (begin (racket:require module) (racket:provide [all-from-out module])) ...)) (provide-module "core/main.rkt" "private/common.rkt" ;;"private/struct.honu" ;;"private/function.honu" ;;"private/common.honu" ) (provide sqr sqrt sin max else number? symbol? null null? length (rename-out [honu-cond cond] [null empty] [racket:empty? empty?] [racket:first first] [racket:rest rest]))