gEDA-dev: can't add pin

[Carlos Nieves Ónega]

Hi DJ,

El dom, 24-12-2006 a las 01:01 -0500, DJ Delorie escribió:
> With current cvs gschem, attempts to add a pin result in:
> 
> ERROR: In procedure stable-sort:
> ERROR: Wrong type argument in position 1: ()
> 
> and a crash.

I can't reproduce it in my system. The stable-sort is used only here:

-----------------begin code snip
(define get-bounds-of-pins-in-side
   (lambda (object desired_side)
     (let* ( (pins (get-object-pins object))
 	     (pins-beginning (get-bound-of-pins desired_side "B" pins))
 	     (pins-beginning-sorted (stable-sort pins-beginning <))
 	     (pins-end (get-bound-of-pins desired_side "E" pins))
 	     (pins-end-sorted (stable-sort pins-end <))	   
------------ end code snip

In my system, if you run the stable-sort with an empty list, the result
is an empty list. If you run guile in a shell and type:

(stable-sort '() <)

what is the result? In my system (guile 1.6.8) I get:

guile> (stable-sort '() <)
()
guile> (stable-sort '() >)
()

what guile version are you using?

Thanks,

Carlos