home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / scheme / pseudo-s / pseudo_2.lha / ssig.scm < prev    next >
Encoding:
Text File  |  1991-10-08  |  2.8 KB  |  97 lines
  1. ; -*- Mode: Scheme; Syntax: Scheme; Package: Scheme; -*-
  2. ; File ssig.scm / Copyright (c) 1991 Jonathan Rees / See file COPYING
  3.  
  4. ;;;; Scheme signatures
  5.  
  6. ; The separation into core and non-core is very tentative for now.
  7. ; Could be split into two different signatures at some point.
  8.  
  9. (define revised^4-scheme-sig
  10.   (make-signature
  11.    'revised^4-scheme
  12.    '(
  13.      ;; Syntax
  14.      and begin case cond define
  15.      delay do if lambda letrec let let* or
  16.      quasiquote quote set! unquote unquote-splicing 
  17.      define-syntax let-syntax letrec-syntax   ;New stuff
  18.      syntax-rules            ;Pattern-based macro definer
  19.      ;; for-syntax ?
  20.      => else
  21.  
  22.      ;; Core procedures
  23.      * + - / < <= = > >=
  24.      apply
  25.      boolean?
  26.      call-with-current-continuation
  27.      car cdr
  28.      char->integer
  29.      char-ready?
  30.      close-input-port close-output-port
  31.      complex? cons current-input-port current-output-port
  32.      denominator
  33.      eof-object? eq? eqv? exact->inexact exact?
  34.      imag-part inexact->exact inexact? input-port?
  35.      integer->char integer?
  36.      load
  37.      magnitude make-polar make-rectangular make-string
  38.      make-vector modulo
  39.      newline not null? number? 
  40.      numerator
  41.      open-input-file open-output-file output-port?
  42.      pair? peek-char procedure?
  43.      quotient
  44.      rational? read-char real-part real?
  45.      remainder
  46.      set-car! set-cdr!
  47.      string
  48.      string->symbol 
  49.      string-length string-ref string-set!
  50.      string? symbol->string symbol?
  51.      transcript-on transcript-off
  52.      vector-length vector-ref vector-set! vector?
  53.      write-char
  54.  
  55.      ;; Non-core procedures (definable in terms of core)
  56.      append assoc assq assv
  57.      abs acos angle
  58.      asin atan
  59.      caaaar caaadr caadar caaddr caaar caadr caar
  60.      cadaar cadadr caddar cadddr cadar caddr cadr
  61.      call-with-input-file
  62.      call-with-output-file
  63.      cdaaar cdaadr cdadar cdaddr cdaar cdadr cdar
  64.      cddaar cddadr cdddar cddddr cddar cdddr cddr
  65.      ceiling
  66.      char-alphabetic?
  67.      char-ci<=? char-ci<? char-ci=? char-ci>=? char-ci>?
  68.      char-downcase char-lower-case? char-numeric?
  69.      char-upcase
  70.      char-upper-case? char-whitespace? char<=? char<? char=?
  71.      char>=? char>? char?
  72.      cos
  73.      display
  74.      equal? even? exp expt
  75.      floor for-each force
  76.      gcd
  77.      lcm list log
  78.      length list->string list->vector list-ref list-tail
  79.      list?
  80.      map max member memq memv min
  81.      negative? number->string
  82.      odd?
  83.      rationalize
  84.      positive? read reverse round sin sqrt 
  85.      string->list string->number string-append
  86.      string-ci<=? string-ci<? string-ci=? string-ci>=? string-ci>?
  87.      string-copy string-fill!
  88.      string<=? string<? string=? string>=? string>? substring
  89.      tan truncate
  90.      vector vector->list vector-fill! with-input-from-file
  91.      with-output-to-file write zero? 
  92.      )
  93.    ;; Private variables
  94.    '(and-aux case-aux make-promise or-aux
  95.      unspecified =>-aux
  96.      )))
  97.