summaryrefslogtreecommitdiff
path: root/module/language/assembly/compile-bytecode.scm
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 /module/language/assembly/compile-bytecode.scm
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.
Diffstat (limited to 'module/language/assembly/compile-bytecode.scm')
-rw-r--r--module/language/assembly/compile-bytecode.scm6
1 files changed, 5 insertions, 1 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 . _)