removed some junk from libchezio

This commit is contained in:
Abdulaziz Ghuloum 2006-12-03 05:17:08 -05:00
parent c33c80285e
commit df16339018
3 changed files with 30 additions and 19 deletions

View File

@ -178,3 +178,33 @@
;;; pretty-print prints when it is called. If set to #f (the default), ;;; pretty-print prints when it is called. If set to #f (the default),
;;; no limit is imposed; if set to a nonnegative fixnum n, at most n ;;; no limit is imposed; if set to a nonnegative fixnum n, at most n
;;; lines are printed. ;;; lines are printed.
(let ()
;;; <fmt> ::= (quote symbol)
;;; | var
;;; | symbol
;;; | (read-macro string symbol)
;;; | (meta)
;;; | (bracket . fmt-list)
;;; | (alt fmt fmt*)
;;; | fmt-list
;;; fmt-list ::= ()
;;; | (tab fmt ...)
;;; | (fmt tab ...)
;;; | (tab fmt . fmt-list)
;;; | (fmt ...)
;;; | (fmt . fmt-list)
;;; | (fill tab fmt ...)
;;; tab ::= int
;;; | #f
)
(pretty-format
'([letrec (_ ((x _) ...) #t _ _ ...)]
[let (_ x ([x _] 0 ...) #t _ _ ...)]
[cond (_ (or (_ 0 _) (_ '=> 0 _)) ...)]

Binary file not shown.

View File

@ -34,23 +34,6 @@
;;; (set-port-output-index! port fixnum) ;;; (set-port-output-index! port fixnum)
;;; (set-port-output-size! port fixnum) ;;; (set-port-output-size! port fixnum)
;;; ;;;
#;(begin
;;; uncomment this form to use the compiler's definition
;;; of ports; otherwise, ports are represented as vanilla
;;; records.
($define-record-syntax port
(handler input-buffer input-index input-size
output-buffer output-index output-size))
(define-syntax port? (identifier-syntax $port?))
(define-syntax input-port?
(syntax-rules ()
[(_ x) (identifier? #'x)
(and ($port? x) (string? ($port-input-buffer x)))]))
(define-syntax output-port?
(syntax-rules ()
[(_ x) (identifier? #'x)
(and ($port? x) (string? ($port-output-buffer x)))])))
;;;
(primitive-set! 'port? (primitive-set! 'port?
(lambda (x) (port? x))) (lambda (x) (port? x)))
;;; ;;;
@ -390,8 +373,6 @@
($flush-output-port p) ($flush-output-port p)
(error 'flush-output-port "~s is not an output-port" p))]))) (error 'flush-output-port "~s is not an output-port" p))])))
(let () (let ()
;;; INPUT FILES ;;; INPUT FILES
(include "message-case.ss") (include "message-case.ss")