Changeset 5537 in project


Ignore:
Timestamp:
08/21/07 00:20:10 (14 years ago)
Author:
Kon Lovett
Message:

Bugfix for unbound stuff.

Location:
misc-extn
Files:
7 edited
1 copied

Legend:

Unmodified
Added
Removed
  • misc-extn/tags/3.001/misc-extn-condition.scm

    r5437 r5537  
    121121    ; Make composite condition api, when composite
    122122    (if (null? ?args)
    123       ;then not composite
     123      ; then not composite
    124124      (syntax-error 'build-composite-condition-API
    125125        "missing conditions to compose")
    126       ;else make composite api
     126      ; else make composite api
    127127      (let ([args (cons ?form ?args)])
    128128        (receive [kndlst prplst] (split-cnd-args args)
  • misc-extn/tags/3.001/misc-extn-eggdoc.scm

    r5438 r5537  
    5252    (author (url "mailto:klovett@pacbell.net" "Kon Lovett"))
    5353    (history
     54      (version "3.001" "Bugfix for unbound")
    5455      (version "3.0" "Split into macro/procedure files, file renames. Incompatible!")
    5556      (version "2.9.3" "Added priority, termios, and winsize for Solaris. Patch for pty header file on BSD. [From Peter Bex]")
     
    458459
    459460        (macro "(unbound? SYMBOL)"
    460           (p "Is the " (tt "SYMBOL") " unbound?") )
     461          (p "Is the " (tt "SYMBOL") " unbound? " (tt "SYMBOL") " is unquoted!") )
    461462
    462463        (macro "(symbol-value SYMBOL [DEFAULT #f])"
    463464          (p "Returns the " (tt "SYMBOL") " binding when bound, "
    464           "otherwise the " (tt "DEFAULT") ".") )
     465          "otherwise the " (tt "DEFAULT") ". " (tt "SYMBOL") " is unquoted!") )
    465466
    466467        (macro "(undefined-value)"
     
    472473        (macro "(undefined? OBJECT)"
    473474          (p "Is the " (tt "OBJECT") " the undefined value?") )
    474 
    475         (usage "(use misc-extn-sym)")
    476475
    477476        (procedure "(make-qualified-symbol NAMESPACE SYMBOL)"
  • misc-extn/tags/3.001/misc-extn-symbol.scm

    r5437 r5537  
    1313
    1414(define-macro (unbound? SYM)
    15   `(unbound-value? (##sys#slot ,SYM 0)) )
     15  `(unbound-value? (##sys#slot ',SYM 0)) )
    1616
    1717(define-macro (symbol-value SYM . ARGS)
    1818  (let ([VAL (gensym)])
    19     `(let ([,VAL (##sys#slot ,SYM 0)])
     19    `(let ([,VAL (##sys#slot ',SYM 0)])
    2020       (if (unbound-value? ,VAL) ,(optional ARGS #f) ,VAL) ) ) )
    2121
  • misc-extn/trunk/misc-extn-condition.scm

    r5437 r5537  
    121121    ; Make composite condition api, when composite
    122122    (if (null? ?args)
    123       ;then not composite
     123      ; then not composite
    124124      (syntax-error 'build-composite-condition-API
    125125        "missing conditions to compose")
    126       ;else make composite api
     126      ; else make composite api
    127127      (let ([args (cons ?form ?args)])
    128128        (receive [kndlst prplst] (split-cnd-args args)
  • misc-extn/trunk/misc-extn-eggdoc.scm

    r5438 r5537  
    5252    (author (url "mailto:klovett@pacbell.net" "Kon Lovett"))
    5353    (history
     54      (version "3.001" "Bugfix for unbound")
    5455      (version "3.0" "Split into macro/procedure files, file renames. Incompatible!")
    5556      (version "2.9.3" "Added priority, termios, and winsize for Solaris. Patch for pty header file on BSD. [From Peter Bex]")
     
    458459
    459460        (macro "(unbound? SYMBOL)"
    460           (p "Is the " (tt "SYMBOL") " unbound?") )
     461          (p "Is the " (tt "SYMBOL") " unbound? " (tt "SYMBOL") " is unquoted!") )
    461462
    462463        (macro "(symbol-value SYMBOL [DEFAULT #f])"
    463464          (p "Returns the " (tt "SYMBOL") " binding when bound, "
    464           "otherwise the " (tt "DEFAULT") ".") )
     465          "otherwise the " (tt "DEFAULT") ". " (tt "SYMBOL") " is unquoted!") )
    465466
    466467        (macro "(undefined-value)"
     
    472473        (macro "(undefined? OBJECT)"
    473474          (p "Is the " (tt "OBJECT") " the undefined value?") )
    474 
    475         (usage "(use misc-extn-sym)")
    476475
    477476        (procedure "(make-qualified-symbol NAMESPACE SYMBOL)"
  • misc-extn/trunk/misc-extn-symbol.scm

    r5437 r5537  
    1313
    1414(define-macro (unbound? SYM)
    15   `(unbound-value? (##sys#slot ,SYM 0)) )
     15  `(unbound-value? (##sys#slot ',SYM 0)) )
    1616
    1717(define-macro (symbol-value SYM . ARGS)
    1818  (let ([VAL (gensym)])
    19     `(let ([,VAL (##sys#slot ,SYM 0)])
     19    `(let ([,VAL (##sys#slot ',SYM 0)])
    2020       (if (unbound-value? ,VAL) ,(optional ARGS #f) ,VAL) ) ) )
    2121
  • misc-extn/trunk/misc-extn.html

    r5438 r5537  
    158158<h3>Version</h3>
    159159<ul>
     160<li>3.001 Bugfix for unbound</li>
    160161<li>3.0 Split into macro/procedure files, file renames. Incompatible!</li>
    161162<li>2.9.3 Added priority, termios, and winsize for Solaris. Patch for pty header file on BSD. [From Peter Bex]</li>
     
    510511<dt class="definition"><strong>macro:</strong> (unbound? SYMBOL)</dt>
    511512<dd>
    512 <p>Is the <tt>SYMBOL</tt> unbound?</p></dd>
     513<p>Is the <tt>SYMBOL</tt> unbound? <tt>SYMBOL</tt> is unquoted!</p></dd>
    513514<dt class="definition"><strong>macro:</strong> (symbol-value SYMBOL [DEFAULT #f])</dt>
    514515<dd>
    515 <p>Returns the <tt>SYMBOL</tt> binding when bound, otherwise the <tt>DEFAULT</tt>.</p></dd>
     516<p>Returns the <tt>SYMBOL</tt> binding when bound, otherwise the <tt>DEFAULT</tt>. <tt>SYMBOL</tt> is unquoted!</p></dd>
    516517<dt class="definition"><strong>macro:</strong> (undefined-value)</dt>
    517518<dd>
     
    523524<dd>
    524525<p>Is the <tt>OBJECT</tt> the undefined value?</p></dd>
    525 <div class="section">
    526 <h3>Usage</h3>(use misc-extn-sym)</div>
    527526<dt class="definition"><strong>procedure:</strong> (make-qualified-symbol NAMESPACE SYMBOL)</dt>
    528527<dd>
Note: See TracChangeset for help on using the changeset viewer.