Convert readline to Racket

Also lighten package dependencies by removing
scheme-lib and compatibility-lib.
This commit is contained in:
Asumu Takikawa 2013-11-26 01:06:44 -05:00
parent 399e9a25b0
commit 1b4bcd1e2c
6 changed files with 9 additions and 11 deletions

View File

@ -1,9 +1,7 @@
#lang info
(define collection 'multi)
(define deps '("scheme-lib"
"base"
"compatibility-lib"))
(define deps '("base"))
(define pkg-desc "implementation (no documentation) part of \"readline\"")

View File

@ -1,4 +1,4 @@
#lang scheme
#lang racket
(require "rep.rkt")
(provide (all-from-out "rep.rkt"))

View File

@ -1,6 +1,6 @@
#lang scheme/base
#lang racket/base
(require mzlib/foreign (only-in '#%foreign ffi-obj)) (unsafe!)
(require ffi/unsafe (only-in '#%foreign ffi-obj))
(provide readline readline-bytes
add-history add-history-bytes
history-length history-get history-delete

View File

@ -1,3 +1,3 @@
(module readline mzscheme
(module readline racket/base
(require "mzrl.rkt")
(provide (all-from "mzrl.rkt")))
(provide (all-from-out "mzrl.rkt")))

View File

@ -1,7 +1,7 @@
;; This module initializes readline unconditionally, "rep.rkt" uses it if we're
;; using a `terminal-port?' for input.
#lang scheme/base
#lang racket/base
(require "pread.rkt")

View File

@ -1,7 +1,7 @@
;; This is a wrapper around "rep-start.rkt" -- use it if we're using a terminal
#lang scheme/base
#lang racket/base
(require scheme/runtime-path scheme/file)
(require racket/runtime-path racket/file)
(define-runtime-path rep-start "rep-start.rkt")