shithub: sl

Info  •  Files  •  Log  •  Branches

document str->num

--- a/boot/sl.boot

+++ b/boot/sl.boot

@@ -38,7 +38,7 @@

   (:read NIL) (:write NIL) (:create NIL) (:truncate NIL) (:append NIL)))  nth ((lst n))  cdr ((lst))  / ((n . rest))  newline (((io

   *io-out*)))  separate-doc-from-body ((body (doc NIL)))  rand-u64 (NIL)  cdadar ((lst))  sqrt ((x))  reverse ((lst))  lz-pack ((data

   (level 0)))  *prompt* (NIL)  member ((item lst))  bignum? ((v))  fixnum (((n 0)))  f64 (((n 0.0)))  memq ((item

-  lst))  str->num ((s (base 10)))  exp ((p))  caaaar ((lst))  s64 (((n 0)))  assoc ((key lst))  + (rest)  cadadr ((lst))  compare ((a

+  lst))  str->num ((s (base NIL)))  exp ((p))  caaaar ((lst))  s64 (((n 0)))  assoc ((key lst))  + (rest)  cadadr ((lst))  compare ((a

   b))  error (args)  print-exception ((e))  load ((filename))  getpid (NIL)  keyword? ((v))  aref ((sequence

   subscript0 . rest))  sym? ((v))  u64 (((n 0)))  assv ((key lst))  bignum (((n 0)))  eqv? ((a b))  list (rest)  __init_globals (NIL)  rand-u32 (NIL)  revappend ((lst

   tail))  nreconc ((lst tail))  defc*r ((name))  read-all-of ((fn io))  cddddr ((lst))  cadr ((lst))  cdadr ((lst))  nan? ((v))  caar ((lst))  div0 ((a

--- a/src/docs.sl

+++ b/src/docs.sl

@@ -331,7 +331,7 @@

   :doc-group string

   :doc-see str?)

-(doc-for (str->num s (base 10))

+(doc-for (str->num s (base NIL))

   «Return the number using the radix `base` in the string `s`.

    Returns `NIL` if the number could not be parsed or there were

-- 

⑨