mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-30 03:40:34 +02:00
Code Activity

core modules use (ice-9 binary-ports) instead of (rnrs io ports)

Browse source 
* module/language/assembly/compile-bytecode.scm:
* module/language/elisp/lexer.scm:
* module/web/request.scm:
* module/web/response.scm:
* module/web/server.scm:
* module/web/uri.scm: Use ice-9 binary-ports.
This commit is contained in:
Andy Wingo 2011-02-18 15:57:27 +01:00
parent dd0d987fbd
commit 6854c32480
6 changed files with 10 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

6
module/language/assembly/compile-bytecode.scm
View file

@ -24,11 +24,15 @@
#:use-module (system vm instruction) #:use-module (system vm instruction)
#:use-module (srfi srfi-4) #:use-module (srfi srfi-4)
#:use-module (rnrs bytevectors) #:use-module (rnrs bytevectors)
#:use-module (rnrs io ports) #:use-module (ice-9 binary-ports)
#:use-module ((srfi srfi-1) #:select (fold)) #:use-module ((srfi srfi-1) #:select (fold))
#:use-module ((srfi srfi-26) #:select (cut)) #:use-module ((srfi srfi-26) #:select (cut))
#:export (compile-bytecode)) #:export (compile-bytecode))
;; Gross.
(define (port-position port)
(seek port 0 SEEK_CUR))
(define (compile-bytecode assembly env . opts) (define (compile-bytecode assembly env . opts)
(pmatch assembly (pmatch assembly
((load-program . _) ((load-program . _)

2
module/language/elisp/lexer.scm
View file

@ -394,7 +394,7 @@
(paren-level 0)) (paren-level 0))
(lambda () (lambda ()
(if finished (if finished
(cons 'eof ((@ (rnrs io ports) eof-object))) (cons 'eof ((@ (ice-9 binary-ports) eof-object)))
(let ((next (lex)) (let ((next (lex))
(quotation #f)) (quotation #f))
(case (car next) (case (car next)

2
module/web/request.scm
View file

@ -21,7 +21,7 @@
(define-module (web request) (define-module (web request)
#:use-module (rnrs bytevectors) #:use-module (rnrs bytevectors)
#:use-module (rnrs io ports) #:use-module (ice-9 binary-ports)
#:use-module (ice-9 rdelim) #:use-module (ice-9 rdelim)
#:use-module (srfi srfi-9) #:use-module (srfi srfi-9)
#:use-module (web uri) #:use-module (web uri)

2
module/web/response.scm
View file

@ -21,7 +21,7 @@
(define-module (web response) (define-module (web response)
#:use-module (rnrs bytevectors) #:use-module (rnrs bytevectors)
#:use-module (rnrs io ports) #:use-module (ice-9 binary-ports)
#:use-module (ice-9 rdelim) #:use-module (ice-9 rdelim)
#:use-module (srfi srfi-9) #:use-module (srfi srfi-9)
#:use-module (web http) #:use-module (web http)

2
module/web/server.scm
View file

@ -75,7 +75,7 @@
(define-module (web server) (define-module (web server)
#:use-module (srfi srfi-9) #:use-module (srfi srfi-9)
#:use-module (rnrs bytevectors) #:use-module (rnrs bytevectors)
#:use-module (rnrs io ports) #:use-module (ice-9 binary-ports)
#:use-module (web request) #:use-module (web request)
#:use-module (web response) #:use-module (web response)
#:use-module (system repl error-handling) #:use-module (system repl error-handling)

2
module/web/uri.scm
View file

@ -30,7 +30,7 @@
#:use-module (ice-9 rdelim) #:use-module (ice-9 rdelim)
#:use-module (ice-9 control) #:use-module (ice-9 control)
#:use-module (rnrs bytevectors) #:use-module (rnrs bytevectors)
#:use-module (rnrs io ports) #:use-module (ice-9 binary-ports)
#:export (uri? #:export (uri?
uri-scheme uri-userinfo uri-host uri-port uri-scheme uri-userinfo uri-host uri-port
uri-path uri-query uri-fragment uri-path uri-query uri-fragment