Changeset 13581 in project for chicken


Ignore:
Timestamp:
03/08/09 02:06:02 (11 years ago)
Author:
felix winkelmann
Message:

miscellaneous trivialities

Location:
chicken/trunk
Files:
1 added
5 edited

Legend:

Unmodified
Added
Removed
  • chicken/trunk/TODO

    r13538 r13581  
    11TODO for chicken                                                        -*- Outline -*-
    22================
     3
     4
     5* release
     6** Continue merging wiki manual changes
     7   continue from "Unit data-structures"
    38
    49
  • chicken/trunk/distribution/manifest

    r13152 r13581  
    228228tests/re-tests.txt
    229229tests/lolevel-tests.scm
     230tests/feeley-dynwind.scm
    230231tweaks.scm
    231232utils.scm
  • chicken/trunk/library.scm

    r13562 r13581  
    35153515       (##sys#error-handler (lambda args (##core#inline "C_halt" "error in error")))
    35163516       (cond ((##sys#fudge 4)
    3517               (##sys#print "Error" #f ##sys#standard-error)
     3517              (##sys#print "\nError" #f ##sys#standard-error)
    35183518              (when msg
    35193519                (##sys#print ": " #f ##sys#standard-error)
     
    35943594       '(user-interrupt) ) ) ]
    35953595    [(#:warning)
    3596      (##sys#print "Warning: " #f ##sys#standard-error)
     3596     (##sys#print "\nWarning: " #f ##sys#standard-error)
    35973597     (##sys#print msg #f ##sys#standard-error)
    35983598     (if (or (null? args) (fx> (length args) 1))
     
    36813681                   ((##sys#reset-handler)) ) ]
    36823682                [(eq? 'user-interrupt (##sys#slot kinds 0))
    3683                  (##sys#print "*** user interrupt ***\n" #f ##sys#standard-error)
     3683                 (##sys#print "\n*** user interrupt ***\n" #f ##sys#standard-error)
    36843684                 ((##sys#reset-handler)) ]
    36853685                [(eq? 'uncaught-exception (##sys#slot kinds 0))
  • chicken/trunk/scripts/wiki2html.scm

    r13538 r13581  
    11;;;; wiki2html.scm - quick-and-dirty svnwiki->HTML conversion
     2;
     3; usage: wiki2html <INPUTFILE >OUTPUTFILE
    24
    35
    46(use regex srfi-1 extras utils)
     7(use htmlprag matchable)
    58
    69
     
    159162;;; run it
    160163
    161 (wiki->html)
     164(let ((sxml (html->sxml (open-input-string (with-output-to-string wiki->html)))))
     165  (define (walk n)
     166    (match n
     167      (('*PI* . _) n)
     168      (('enscript strs ...)
     169       `(pre ,@strs))
     170      (((? symbol? tag) . body)
     171       `(,tag ,@(map walk body)))
     172      (_ n)))
     173  (sxml->html (walk sxml)))
  • chicken/trunk/support.scm

    r13300 r13581  
    103103  (when (and ##sys#warnings-enabled (not (memq class disabled-warnings)))
    104104    (let ((out (current-error-port)))
    105       (apply fprintf out (string-append "Warning: " msg) args)
     105      (apply fprintf out (string-append "\nWarning: " msg) args)
    106106      (newline out) ) ) )
    107107
    108108(define (quit msg . args)
    109109  (let ([out (current-error-port)])
    110     (apply fprintf out (string-append "Error: " msg) args)
     110    (apply fprintf out (string-append "\nError: " msg) args)
    111111    (newline out)
    112112    (exit 1) ) )
Note: See TracChangeset for help on using the changeset viewer.