diff options
author | Andy Wingo <wingo@pobox.com> | 2011-02-18 15:57:27 +0100 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2011-02-18 16:01:25 +0100 |
commit | 6854c32480e95ca54e95da585e74002d8897573c (patch) | |
tree | c63c8af8b9e0bb1fde2b00bfef5599ab8e6f7cc5 | |
parent | dd0d987fbdf32387ff4b36631302918ca8ff36cb (diff) | |
download | guile-6854c32480e95ca54e95da585e74002d8897573c.tar.gz |
core modules use (ice-9 binary-ports) instead of (rnrs io ports)
* 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.
-rw-r--r-- | module/language/assembly/compile-bytecode.scm | 6 | ||||
-rw-r--r-- | module/language/elisp/lexer.scm | 2 | ||||
-rw-r--r-- | module/web/request.scm | 2 | ||||
-rw-r--r-- | module/web/response.scm | 2 | ||||
-rw-r--r-- | module/web/server.scm | 2 | ||||
-rw-r--r-- | module/web/uri.scm | 2 |
6 files changed, 10 insertions, 6 deletions
diff --git a/module/language/assembly/compile-bytecode.scm b/module/language/assembly/compile-bytecode.scm index 02695d7ba..ae6476891 100644 --- a/module/language/assembly/compile-bytecode.scm +++ b/module/language/assembly/compile-bytecode.scm @@ -24,11 +24,15 @@ #:use-module (system vm instruction) #:use-module (srfi srfi-4) #: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-26) #:select (cut)) #:export (compile-bytecode)) +;; Gross. +(define (port-position port) + (seek port 0 SEEK_CUR)) + (define (compile-bytecode assembly env . opts) (pmatch assembly ((load-program . _) diff --git a/module/language/elisp/lexer.scm b/module/language/elisp/lexer.scm index ed6c5f8e2..af7e02add 100644 --- a/module/language/elisp/lexer.scm +++ b/module/language/elisp/lexer.scm @@ -394,7 +394,7 @@ (paren-level 0)) (lambda () (if finished - (cons 'eof ((@ (rnrs io ports) eof-object))) + (cons 'eof ((@ (ice-9 binary-ports) eof-object))) (let ((next (lex)) (quotation #f)) (case (car next) diff --git a/module/web/request.scm b/module/web/request.scm index 91cc59da4..84119205f 100644 --- a/module/web/request.scm +++ b/module/web/request.scm @@ -21,7 +21,7 @@ (define-module (web request) #:use-module (rnrs bytevectors) - #:use-module (rnrs io ports) + #:use-module (ice-9 binary-ports) #:use-module (ice-9 rdelim) #:use-module (srfi srfi-9) #:use-module (web uri) diff --git a/module/web/response.scm b/module/web/response.scm index 2cabd4f85..62837721c 100644 --- a/module/web/response.scm +++ b/module/web/response.scm @@ -21,7 +21,7 @@ (define-module (web response) #:use-module (rnrs bytevectors) - #:use-module (rnrs io ports) + #:use-module (ice-9 binary-ports) #:use-module (ice-9 rdelim) #:use-module (srfi srfi-9) #:use-module (web http) diff --git a/module/web/server.scm b/module/web/server.scm index 4715cae69..8dbd13961 100644 --- a/module/web/server.scm +++ b/module/web/server.scm @@ -75,7 +75,7 @@ (define-module (web server) #:use-module (srfi srfi-9) #:use-module (rnrs bytevectors) - #:use-module (rnrs io ports) + #:use-module (ice-9 binary-ports) #:use-module (web request) #:use-module (web response) #:use-module (system repl error-handling) diff --git a/module/web/uri.scm b/module/web/uri.scm index 2361d87b5..23699e921 100644 --- a/module/web/uri.scm +++ b/module/web/uri.scm @@ -30,7 +30,7 @@ #:use-module (ice-9 rdelim) #:use-module (ice-9 control) #:use-module (rnrs bytevectors) - #:use-module (rnrs io ports) + #:use-module (ice-9 binary-ports) #:export (uri? uri-scheme uri-userinfo uri-host uri-port uri-path uri-query uri-fragment |