summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2011-02-18 15:57:27 +0100
committerAndy Wingo <wingo@pobox.com>2011-02-18 16:01:25 +0100
commit6854c32480e95ca54e95da585e74002d8897573c (patch)
treec63c8af8b9e0bb1fde2b00bfef5599ab8e6f7cc5
parentdd0d987fbdf32387ff4b36631302918ca8ff36cb (diff)
downloadguile-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.scm6
-rw-r--r--module/language/elisp/lexer.scm2
-rw-r--r--module/web/request.scm2
-rw-r--r--module/web/response.scm2
-rw-r--r--module/web/server.scm2
-rw-r--r--module/web/uri.scm2
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