gEDA-cvs: branch: master updated (1.4.0-20080127-35-gc1b1d36)

[git@xxxxxxxxxx]

The branch, master has been updated
       via  c1b1d3646043f27302b36a4b541bc9b34fbfe6b9 (commit)
      from  af0d9f2e8825f7d23c691deec0e70f1eaaac0e38 (commit)

Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we list those
revisions in full, below.


=========
 Summary
=========

 gnetlist/scheme/gnetlist.scm |    9 ---------
 1 files changed, 0 insertions(+), 9 deletions(-)


=================
 Commit Messages
=================

commit c1b1d3646043f27302b36a4b541bc9b34fbfe6b9
Author: Peter TB Brett <peter@xxxxxxxxxxxxx>
Date:   Sat Mar 22 19:31:04 2008 +0000

    gnetlist: Remove first-val-or-#f
    
    The first-val-or-#f function should have been removed in commit
    406234a95a4a4a6ff65c60eb2d63e32c80623a2a when its use was optimised
    away.

:100644 100644 b8db586... 2886d3e... M	gnetlist/scheme/gnetlist.scm

=========
 Changes
=========

commit c1b1d3646043f27302b36a4b541bc9b34fbfe6b9
Author: Peter TB Brett <peter@xxxxxxxxxxxxx>
Date:   Sat Mar 22 19:31:04 2008 +0000

    gnetlist: Remove first-val-or-#f
    
    The first-val-or-#f function should have been removed in commit
    406234a95a4a4a6ff65c60eb2d63e32c80623a2a when its use was optimised
    away.

diff --git a/gnetlist/scheme/gnetlist.scm b/gnetlist/scheme/gnetlist.scm
index b8db586..2886d3e 100644
--- a/gnetlist/scheme/gnetlist.scm
+++ b/gnetlist/scheme/gnetlist.scm
@@ -250,15 +250,6 @@
 ; (run-test "one two three four five six seven eight nine ten" 10)
 ; (run-test "one two three four five six seven eight nine ten" 20)
 
-(define first-val-or-#f
-  (lambda (value_list)
-    (if (null? value_list)
-      '#f
-      (car value_list)
-    )
-  )
-)
-
 ;; determine the uref to use for a particular OBJECT
 (define (gnetlist:get-uref object)
   ; Returns first value of first attrib found with given name, or #f.




_______________________________________________
geda-cvs mailing list
geda-cvs@xxxxxxxxxxxxxx
http://www.seul.org/cgi-bin/mailman/listinfo/geda-cvs