From 6d3d135f4cc3c480dda283c0c240040f3cf14930 Mon Sep 17 00:00:00 2001 From: Jay McCarthy Date: Sat, 26 Jun 2010 13:36:33 -0600 Subject: [PATCH] Simplifying organization --- collects/datalog/lang/lang.rkt | 4 ++-- collects/datalog/lang/module.rkt | 8 -------- collects/datalog/lang/reader.rkt | 2 +- 3 files changed, 3 insertions(+), 11 deletions(-) delete mode 100644 collects/datalog/lang/module.rkt diff --git a/collects/datalog/lang/lang.rkt b/collects/datalog/lang/lang.rkt index 03acffa5da..342dfb16ef 100644 --- a/collects/datalog/lang/lang.rkt +++ b/collects/datalog/lang/lang.rkt @@ -24,5 +24,5 @@ (print-result #,(compile-stmt (syntax->datum #'stmt))))])) -(provide module-begin - top-interaction) \ No newline at end of file +(provide (rename-out [module-begin #%module-begin] + [top-interaction #%top-interaction])) \ No newline at end of file diff --git a/collects/datalog/lang/module.rkt b/collects/datalog/lang/module.rkt deleted file mode 100644 index ddc3f2c7f4..0000000000 --- a/collects/datalog/lang/module.rkt +++ /dev/null @@ -1,8 +0,0 @@ -#lang racket/base -(require "lang.rkt") - -(provide (rename-out [module-begin #%module-begin] - [top-interaction #%top-interaction]) - (except-out (all-from-out racket/base) - #%top-interaction - #%module-begin)) \ No newline at end of file diff --git a/collects/datalog/lang/reader.rkt b/collects/datalog/lang/reader.rkt index 1eddbdddbc..67a6e727c9 100644 --- a/collects/datalog/lang/reader.rkt +++ b/collects/datalog/lang/reader.rkt @@ -1,5 +1,5 @@ (module reader syntax/module-reader - #:language 'datalog/lang/module + #:language 'datalog/lang/lang #:read (lambda ([in (current-input-port)]) (this-read-syntax #f in))