Changeset 5702 in project


Ignore:
Timestamp:
08/24/07 22:46:05 (14 years ago)
Author:
Kon Lovett
Message:

unbound reverted to 3.0 behavior.

Location:
misc-extn
Files:
6 edited
2 copied

Legend:

Unmodified
Added
Removed
  • misc-extn/tags/3.002/misc-extn-eggdoc.scm

    r5537 r5702  
    5252    (author (url "mailto:klovett@pacbell.net" "Kon Lovett"))
    5353    (history
     54      (version "3.002" "Reverted to 3.0 behavior for unbound Wasn't a bug.")
    5455      (version "3.001" "Bugfix for unbound")
    5556      (version "3.0" "Split into macro/procedure files, file renames. Incompatible!")
     
    459460
    460461        (macro "(unbound? SYMBOL)"
    461           (p "Is the " (tt "SYMBOL") " unbound? " (tt "SYMBOL") " is unquoted!") )
     462          (p "Is the " (tt "SYMBOL") " unbound?")
     463
     464          (p (tt "SYMBOL") " is " (b "not") " treated as a literal, be "
     465          "sure to quote if a literal desired.") )
    462466
    463467        (macro "(symbol-value SYMBOL [DEFAULT #f])"
    464468          (p "Returns the " (tt "SYMBOL") " binding when bound, "
    465           "otherwise the " (tt "DEFAULT") ". " (tt "SYMBOL") " is unquoted!") )
     469          "otherwise the " (tt "DEFAULT") ".")
     470
     471          (p (tt "SYMBOL") " is " (b "not") " treated as a literal, be "
     472          "sure to quote if a literal desired.") )
    466473
    467474        (macro "(undefined-value)"
  • misc-extn/tags/3.002/misc-extn-symbol.scm

    r5537 r5702  
    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/tags/3.002/misc-extn.html

    r5537 r5702  
    158158<h3>Version</h3>
    159159<ul>
     160<li>3.002 Reverted to 3.0 behavior for unbound Wasn't a bug.</li>
    160161<li>3.001 Bugfix for unbound</li>
    161162<li>3.0 Split into macro/procedure files, file renames. Incompatible!</li>
     
    511512<dt class="definition"><strong>macro:</strong> (unbound? SYMBOL)</dt>
    512513<dd>
    513 <p>Is the <tt>SYMBOL</tt> unbound? <tt>SYMBOL</tt> is unquoted!</p></dd>
     514<p>Is the <tt>SYMBOL</tt> unbound?</p>
     515<p><tt>SYMBOL</tt> is <b>not</b> treated as a literal, be sure to quote if a literal desired.</p></dd>
    514516<dt class="definition"><strong>macro:</strong> (symbol-value SYMBOL [DEFAULT #f])</dt>
    515517<dd>
    516 <p>Returns the <tt>SYMBOL</tt> binding when bound, otherwise the <tt>DEFAULT</tt>. <tt>SYMBOL</tt> is unquoted!</p></dd>
     518<p>Returns the <tt>SYMBOL</tt> binding when bound, otherwise the <tt>DEFAULT</tt>.</p>
     519<p><tt>SYMBOL</tt> is <b>not</b> treated as a literal, be sure to quote if a literal desired.</p></dd>
    517520<dt class="definition"><strong>macro:</strong> (undefined-value)</dt>
    518521<dd>
  • misc-extn/trunk/misc-extn-eggdoc.scm

    r5537 r5702  
    5252    (author (url "mailto:klovett@pacbell.net" "Kon Lovett"))
    5353    (history
     54      (version "3.002" "Reverted to 3.0 behavior for unbound Wasn't a bug.")
    5455      (version "3.001" "Bugfix for unbound")
    5556      (version "3.0" "Split into macro/procedure files, file renames. Incompatible!")
     
    459460
    460461        (macro "(unbound? SYMBOL)"
    461           (p "Is the " (tt "SYMBOL") " unbound? " (tt "SYMBOL") " is unquoted!") )
     462          (p "Is the " (tt "SYMBOL") " unbound?")
     463
     464          (p (tt "SYMBOL") " is " (b "not") " treated as a literal, be "
     465          "sure to quote if a literal desired.") )
    462466
    463467        (macro "(symbol-value SYMBOL [DEFAULT #f])"
    464468          (p "Returns the " (tt "SYMBOL") " binding when bound, "
    465           "otherwise the " (tt "DEFAULT") ". " (tt "SYMBOL") " is unquoted!") )
     469          "otherwise the " (tt "DEFAULT") ".")
     470
     471          (p (tt "SYMBOL") " is " (b "not") " treated as a literal, be "
     472          "sure to quote if a literal desired.") )
    466473
    467474        (macro "(undefined-value)"
  • misc-extn/trunk/misc-extn-symbol.scm

    r5537 r5702  
    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

    r5537 r5702  
    158158<h3>Version</h3>
    159159<ul>
     160<li>3.002 Reverted to 3.0 behavior for unbound Wasn't a bug.</li>
    160161<li>3.001 Bugfix for unbound</li>
    161162<li>3.0 Split into macro/procedure files, file renames. Incompatible!</li>
     
    511512<dt class="definition"><strong>macro:</strong> (unbound? SYMBOL)</dt>
    512513<dd>
    513 <p>Is the <tt>SYMBOL</tt> unbound? <tt>SYMBOL</tt> is unquoted!</p></dd>
     514<p>Is the <tt>SYMBOL</tt> unbound?</p>
     515<p><tt>SYMBOL</tt> is <b>not</b> treated as a literal, be sure to quote if a literal desired.</p></dd>
    514516<dt class="definition"><strong>macro:</strong> (symbol-value SYMBOL [DEFAULT #f])</dt>
    515517<dd>
    516 <p>Returns the <tt>SYMBOL</tt> binding when bound, otherwise the <tt>DEFAULT</tt>. <tt>SYMBOL</tt> is unquoted!</p></dd>
     518<p>Returns the <tt>SYMBOL</tt> binding when bound, otherwise the <tt>DEFAULT</tt>.</p>
     519<p><tt>SYMBOL</tt> is <b>not</b> treated as a literal, be sure to quote if a literal desired.</p></dd>
    517520<dt class="definition"><strong>macro:</strong> (undefined-value)</dt>
    518521<dd>
Note: See TracChangeset for help on using the changeset viewer.