Print Page - error in 'letn'

Title: error in 'letn'
Post by: Fanda on January 08, 2006, 11:07:01 PM

It looks that there is an error in 'letn':

Code Select Expand
(define (test1)
  (let (arg (args))
    (println "arg  = " arg)))

(define (test2)
  (letn (arg (args) rarg (reverse arg))
    (println "arg  = " arg)
    (println "rarg = " rarg)))

(test1 1 2)
(println)
(test2 1 2)

Output:

Code Select Expand
arg  = (1 2)

arg  = (2 1)
rarg = (2 1)

I believe that 'test2' should return:

Code Select Expand
arg  = (1 2)
rarg = (2 1)

Fanda

PS: I am using newLISP v.8.7.7 on Win32 MinGW.

Title:
Post by: Dmi on January 08, 2006, 11:14:03 PM

reverse is destructive function - arg is modified by it.

Title:
Post by: Fanda on January 09, 2006, 01:15:36 AM

Oh, I didn't know that! Thanks!

Fanda

newLISP Fan Club

Forum => newLISP in the real world => Topic started by: Fanda on January 08, 2006, 11:07:01 PM