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 /module/language/assembly/compile-bytecode.scm | |
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.
Diffstat (limited to 'module/language/assembly/compile-bytecode.scm')
-rw-r--r-- | module/language/assembly/compile-bytecode.scm | 6 |
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 . _) |