diff --git a/sugar/coerce.rkt b/coerce.rkt similarity index 100% rename from sugar/coerce.rkt rename to coerce.rkt diff --git a/sugar/coerce/contract.rkt b/coerce/contract.rkt similarity index 100% rename from sugar/coerce/contract.rkt rename to coerce/contract.rkt diff --git a/sugar/coerce/value.rkt b/coerce/value.rkt similarity index 100% rename from sugar/coerce/value.rkt rename to coerce/value.rkt diff --git a/sugar/container.rkt b/container.rkt similarity index 100% rename from sugar/container.rkt rename to container.rkt diff --git a/debug.rkt b/debug.rkt new file mode 100644 index 0000000..5696849 --- /dev/null +++ b/debug.rkt @@ -0,0 +1,15 @@ +#lang racket/base + +(provide report describe) + +(define-syntax-rule (report var) + (begin + (displayln (format "~a = ~v" 'var var) (current-error-port)) + var)) + +(require (prefix-in williams: describe)) + +(define (describe x) + (parameterize ([current-output-port (current-error-port)]) + (williams:describe x)) + x) \ No newline at end of file diff --git a/sugar/define.rkt b/define.rkt similarity index 100% rename from sugar/define.rkt rename to define.rkt diff --git a/sugar/define/contract.rkt b/define/contract.rkt similarity index 100% rename from sugar/define/contract.rkt rename to define/contract.rkt diff --git a/sugar/define/provide.rkt b/define/provide.rkt similarity index 100% rename from sugar/define/provide.rkt rename to define/provide.rkt diff --git a/sugar/exception.rkt b/exception.rkt similarity index 100% rename from sugar/exception.rkt rename to exception.rkt diff --git a/sugar/file.rkt b/file.rkt similarity index 100% rename from sugar/file.rkt rename to file.rkt diff --git a/info.rkt b/info.rkt index 30f42c4..fce4e2b 100644 --- a/info.rkt +++ b/info.rkt @@ -1,2 +1,4 @@ -#lang setup/infotab -(define collection 'multi) \ No newline at end of file +#lang info +(define collection "sugar") +(define scribblings '(("scribblings/sugar.scrbl" (multi-page)))) +(define deps '("describe")) \ No newline at end of file diff --git a/sugar/len.rkt b/len.rkt similarity index 100% rename from sugar/len.rkt rename to len.rkt diff --git a/sugar/list.rkt b/list.rkt similarity index 100% rename from sugar/list.rkt rename to list.rkt diff --git a/sugar/macro.rkt b/macro.rkt similarity index 100% rename from sugar/macro.rkt rename to macro.rkt diff --git a/sugar/main.rkt b/main.rkt similarity index 100% rename from sugar/main.rkt rename to main.rkt diff --git a/sugar/misc.rkt b/misc.rkt similarity index 100% rename from sugar/misc.rkt rename to misc.rkt diff --git a/sugar/scribblings/coerce.scrbl b/scribblings/coerce.scrbl similarity index 100% rename from sugar/scribblings/coerce.scrbl rename to scribblings/coerce.scrbl diff --git a/sugar/scribblings/len.scrbl b/scribblings/len.scrbl similarity index 100% rename from sugar/scribblings/len.scrbl rename to scribblings/len.scrbl diff --git a/sugar/scribblings/sugar.scrbl b/scribblings/sugar.scrbl similarity index 100% rename from sugar/scribblings/sugar.scrbl rename to scribblings/sugar.scrbl diff --git a/sugar/string.rkt b/string.rkt similarity index 100% rename from sugar/string.rkt rename to string.rkt diff --git a/sugar/debug.rkt b/sugar/debug.rkt deleted file mode 100644 index b1e715c..0000000 --- a/sugar/debug.rkt +++ /dev/null @@ -1,8 +0,0 @@ -#lang racket/base - -(provide report) - -(define-syntax-rule (report var) - (begin - (displayln (format "~a = ~v" 'var var) (current-error-port)) - var)) diff --git a/sugar/info.rkt b/sugar/info.rkt deleted file mode 100644 index 7b5acae..0000000 --- a/sugar/info.rkt +++ /dev/null @@ -1,2 +0,0 @@ -#lang setup/infotab -(define scribblings '(("scribblings/sugar.scrbl" (multi-page)))) \ No newline at end of file diff --git a/sugar/tests.rkt b/tests.rkt similarity index 100% rename from sugar/tests.rkt rename to tests.rkt diff --git a/sugar/tree.rkt b/tree.rkt similarity index 100% rename from sugar/tree.rkt rename to tree.rkt diff --git a/sugar/values.rkt b/values.rkt similarity index 100% rename from sugar/values.rkt rename to values.rkt