23753d527f
PR: 132652 Submitted by: carl shapiro <carl.shapiro@gmail.com> Approved by: maintainer (Erik Greenwald <erik.greenwald@gmail.com>)
40 lines
1,003 B
Scala
40 lines
1,003 B
Scala
*** test/test23.sc.orig Mon Feb 22 11:27:23 1993
|
||
--- test/test23.sc Sat Mar 14 22:05:08 2009
|
||
***************
|
||
*** 330,338 ****
|
||
|
||
;;; Access to an external array.
|
||
|
||
! (define-c-external _\i\o\b* ARRAY "_iob")
|
||
! (eval-when (load) (define _iob _\i\o\b*))
|
||
! (eval-when (eval) (define _iob 0))
|
||
|
||
;;; Access to an external procedure pointer.
|
||
|
||
--- 330,338 ----
|
||
|
||
;;; Access to an external array.
|
||
|
||
! ;(define-c-external _\i\o\b* ARRAY "_iob")
|
||
! ;(eval-when (load) (define _iob _\i\o\b*))
|
||
! ;(eval-when (eval) (define _iob 0))
|
||
|
||
;;; Access to an external procedure pointer.
|
||
|
||
***************
|
||
*** 409,415 ****
|
||
|
||
(chk 130 (string-ref "" 0) (integer->char #o21))
|
||
|
||
! (chk 140 (number? _iob) #t)
|
||
(chk 141 (number? hypot) #t)
|
||
|
||
(chk 150 (letrec ((x 1)) (define x 2) x) 2)
|
||
--- 409,415 ----
|
||
|
||
(chk 130 (string-ref "" 0) (integer->char #o21))
|
||
|
||
! ;(chk 140 (number? _iob) #t)
|
||
(chk 141 (number? hypot) #t)
|
||
|
||
(chk 150 (letrec ((x 1)) (define x 2) x) 2)
|