Convert readline to Racket
Also lighten package dependencies by removing scheme-lib and compatibility-lib.
This commit is contained in:
parent
399e9a25b0
commit
1b4bcd1e2c
|
@ -1,9 +1,7 @@
|
||||||
#lang info
|
#lang info
|
||||||
|
|
||||||
(define collection 'multi)
|
(define collection 'multi)
|
||||||
(define deps '("scheme-lib"
|
(define deps '("base"))
|
||||||
"base"
|
|
||||||
"compatibility-lib"))
|
|
||||||
|
|
||||||
(define pkg-desc "implementation (no documentation) part of \"readline\"")
|
(define pkg-desc "implementation (no documentation) part of \"readline\"")
|
||||||
|
|
||||||
|
|
|
@ -1,4 +1,4 @@
|
||||||
#lang scheme
|
#lang racket
|
||||||
|
|
||||||
(require "rep.rkt")
|
(require "rep.rkt")
|
||||||
(provide (all-from-out "rep.rkt"))
|
(provide (all-from-out "rep.rkt"))
|
||||||
|
|
|
@ -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
|
(provide readline readline-bytes
|
||||||
add-history add-history-bytes
|
add-history add-history-bytes
|
||||||
history-length history-get history-delete
|
history-length history-get history-delete
|
||||||
|
|
|
@ -1,3 +1,3 @@
|
||||||
(module readline mzscheme
|
(module readline racket/base
|
||||||
(require "mzrl.rkt")
|
(require "mzrl.rkt")
|
||||||
(provide (all-from "mzrl.rkt")))
|
(provide (all-from-out "mzrl.rkt")))
|
||||||
|
|
|
@ -1,7 +1,7 @@
|
||||||
;; This module initializes readline unconditionally, "rep.rkt" uses it if we're
|
;; This module initializes readline unconditionally, "rep.rkt" uses it if we're
|
||||||
;; using a `terminal-port?' for input.
|
;; using a `terminal-port?' for input.
|
||||||
|
|
||||||
#lang scheme/base
|
#lang racket/base
|
||||||
|
|
||||||
(require "pread.rkt")
|
(require "pread.rkt")
|
||||||
|
|
||||||
|
|
|
@ -1,7 +1,7 @@
|
||||||
;; This is a wrapper around "rep-start.rkt" -- use it if we're using a terminal
|
;; 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")
|
(define-runtime-path rep-start "rep-start.rkt")
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue
Block a user