From 6854c32480e95ca54e95da585e74002d8897573c Mon Sep 17 00:00:00 2001 From: Andy Wingo Date: Fri, 18 Feb 2011 15:57:27 +0100 Subject: 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. --- module/language/assembly/compile-bytecode.scm | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) (limited to 'module/language/assembly/compile-bytecode.scm') 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 . _) -- cgit v1.2.3