mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-30 03:40:34 +02:00
Code Activity

*** empty log message ***

Browse source
This commit is contained in:
Keisuke Nishida 2001-04-10 06:11:26 +00:00
parent be2d2946bc
commit 8710eba09b
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
module/system/vm/core.scm
View file

@ -73,7 +73,7 @@
(define (save-dumpcode dump file) (define (save-dumpcode dump file)
(call-with-output-file file (call-with-output-file file
(lambda (out) (uniform-vector-write bytes out)))) (lambda (out) (uniform-vector-write dump out))))
(define (integer->bytes n) (define (integer->bytes n)
(string (integer->char n))) (string (integer->char n)))