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

fix read.bm

Browse source 
* benchmark-suite/benchmarks/read.bm (%files-to-load): psyntax-pp.scm,
  not psyntax.scm.
This commit is contained in:
Andy Wingo 2010-04-17 14:04:49 +02:00
parent 892cf97107
commit 689af21100
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
benchmark-suite/benchmarks/read.bm
View file

@ -1,6 +1,6 @@
;;; read.bm --- Exercise the reader. -*- Scheme -*- ;;; read.bm --- Exercise the reader. -*- Scheme -*-
;;; ;;;
;;; Copyright (C) 2008 Free Software Foundation, Inc. ;;; Copyright (C) 2008, 2010 Free Software Foundation, Inc.
;;; ;;;
;;; This program is free software; you can redistribute it and/or ;;; This program is free software; you can redistribute it and/or
;;; modify it under the terms of the GNU Lesser General Public License ;;; modify it under the terms of the GNU Lesser General Public License
@ -27,7 +27,7 @@
'("ice-9/boot-9.scm" "ice-9/common-list.scm" '("ice-9/boot-9.scm" "ice-9/common-list.scm"
"ice-9/format.scm" "ice-9/optargs.scm" "ice-9/format.scm" "ice-9/optargs.scm"
"ice-9/session.scm" "ice-9/getopt-long.scm" "ice-9/session.scm" "ice-9/getopt-long.scm"
"ice-9/psyntax.pp"))) "ice-9/psyntax-pp.scm")))
(define (load-file-with-reader file-name reader buffering) (define (load-file-with-reader file-name reader buffering)
(with-input-from-file file-name (with-input-from-file file-name