30 lines
789 B
Racket
30 lines
789 B
Racket
#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]))
|