diff options
author | Thomas Bushnell <tb@debian.org> | 2007-12-28 15:56:00 -0800 |
---|---|---|
committer | Bryan Newbold <bnewbold@robocracy.org> | 2017-02-20 00:05:38 -0800 |
commit | 967ca9f9b4c42630fb0feb1e5b9186266fa4d854 (patch) | |
tree | 8bbb64f76bd25bf5dc59c856167f46f67cfca2e9 /hobbit.scm | |
parent | 25fbaa7f8700665d5aea046956175a35035f7fd5 (diff) | |
parent | 710a97992705d67c3ded0d4b270c5978ce29b11f (diff) | |
download | scm-a9c2b8b4ecc9a2c313852926de7b076fe91daac8.tar.gz scm-a9c2b8b4ecc9a2c313852926de7b076fe91daac8.zip |
Import Debian changes 5e4-1debian/5e4-1
scm (5e4-1) unstable; urgency=low
* New upstream release.
* debian/control: Require at least version 3a5 of slib.
* debian/postrm: New file to remove /usr/lib/scm/implcat and
/usr/lib/scm/slibcat upon purge. (Closes: #455124). Thanks to Kumar
Appaiah for the fix.
* debian/control (Architecture): Add armel and armeb. (Closes: #408792).
* debian/rules (install): Don't use -s when installing. dh_strip should
be sufficient, and this should make the nostrip build option work.
(Closes: #438004).
* continue.h: Repeat change from 5e1-2.
* xgen.scm: Repeat change from 5e2-4.
* scm.1: Repeat change from 5e2-4.
* build.scm: Repeat change from 5e3-5.
Diffstat (limited to 'hobbit.scm')
-rw-r--r-- | hobbit.scm | 23 |
1 files changed, 12 insertions, 11 deletions
@@ -6,7 +6,7 @@ ; 2002-04-11
;
; Copyright (C) 1992-1997: Tanel Tammet
-; Copyright (C) 1998-2002: Free Software Foundation
+; Copyright (C) 1998-2006: Free Software Foundation
;
; tammet@staff.ttu.ee, tammet@cs.chalmers.se
;
@@ -228,7 +228,7 @@ errjmp-ok ints-disabled sig-deferred alrm-deferred han-sig han-alrm
must-malloc ilength s-read s-write s-newline s-make-string
s-make-vector s-list s-string s-vector repl-driver newsmob lthrow repl
- gc-end gc-start growth-mon iprin1 intprint iprlist lputc lputs
+ gc-end gc-start growth-mon scm_iprin1 scm_intprint scm_iprlist lputc lputs
lfwrite time-in-msec my-time init-tables init-storage init-subrs
init-features init-iprocs init- init-scl init-io init-repl init-time
init-signals ignore-signals unignore-signals init-eval init-sc2
@@ -259,8 +259,9 @@ ;;; eval
throwval quit input-portp output-portp
cur-input-port cur-output-port open-file open-pipe close-port
- close-pipe lread read-char peek-char eof-objectp lwrite display
- newline write-char file-position file-set-position lgetenv prog-args
+ close-pipe read-char peek-char eof-objectp scm_write scm_display
+ scm_newline scm_write-char
+ file-position file-set-position scm_file-position lgetenv prog-args
makacro makmacro makmmacro
remove ash round array-ref array_ref
sin cos tan asin acos atan sinh cosh tanh asinh acosh atanh sqrt expt
@@ -2115,7 +2116,7 @@ ;; (display-c-newline))
((eq? 'if (car term))
(display-c-indent n)
- (display-c "if(")
+ (display-c "if (")
(display-c-expression (cadr term) #t)
(display-c #\))
(cond ((not (pair? (caddr term)))
@@ -2170,7 +2171,7 @@ (display-c-statement (car (cdddr term)) n))))
((eq? (car term) *do-not*)
(display-c-indent n)
- (display-c "for(")
+ (display-c "for (")
(let ((lst1 (map (lambda (x) (list 'set! (car x) (cadr x)))
(cadr term)))
(lst2 (map (lambda (x) (list 'set! (car x) (caddr x)))
@@ -2561,12 +2562,12 @@ (read "scm_read" 1)
(read-char "scm_read_char" 1)
- (peek-char "peek_char" 1)
+ (peek-char "scm_peek_char" 1)
(eof-object? "eof_objectp" 1)
- (write "lwrite" 2)
- (display "display" 2)
- (newline "newline" 1)
- (write-char "write_char" 2)
+ (write "scm_write" 2)
+ (display "scm_display" 2)
+ (newline "scm_newline" 1)
+ (write-char "scm_write_char" 2)
(input-port? "input_portp" 1)
(output-port? "output_portp" 1)
|