gEDA-cvs: CVS update: gnet-drc2.scm

[cvspsrv@xxxxxxxx]

  User: cnieves 
  Date: 06/04/05 11:19:51

  Modified:    .        gnet-drc2.scm
  Log:
  Fixed parenthesis mismatch in function drc2:check-slots.
  
  Thanks to David Logan for reporting the bug.
  
  ----------------------------------------------------------------------
  
  
  
  
  Revision  Changes    Path
  1.12      +16 -13    eda/geda/devel/gnetlist/scheme/gnet-drc2.scm
  
  (In the diff below, changes in quantity of whitespace are not shown.)
  
  Index: gnet-drc2.scm
  ===================================================================
  RCS file: /home/cvspsrv/cvsroot/eda/geda/devel/gnetlist/scheme/gnet-drc2.scm,v
  retrieving revision 1.11
  retrieving revision 1.12
  diff -u -b -r1.11 -r1.12
  --- gnet-drc2.scm	2 Mar 2006 17:48:23 -0000	1.11
  +++ gnet-drc2.scm	5 Apr 2006 15:19:51 -0000	1.12
  @@ -20,6 +20,8 @@
   ;;
   ;; DRC backend written by Carlos Nieves Onega starts here.
   ;;
  +;;  2006-04-05: Fixed parenthesis mismatch in function drc2:check-slots.
  +;;              Thanks to David Logan for reporting the bug.
   ;;  2006-03-02: Don't check pintypes of net "NoConnection". 
   ;;              Thanks to Holger Oehm for the bug report and providing 
   ;;              a patch. 
  @@ -424,6 +426,7 @@
   	  (begin
   	    (define check-slots-loop
   	      (lambda (slots_list)
  +		(if (not (null? slots_list))
   		(let ((this_slot (car slots_list)))
   		  (if (integer? this_slot)
   		      (if (not (and (<= this_slot numslots) (>= this_slot 1)))
  @@ -434,7 +437,7 @@
   						    (number->string this_slot)
   						    ").") port)
   			    (newline port)
  -			    (set! errors_number (+ errors_number 1))))
  +				(set! errors_number (+ errors_number 1)))))
   		      
   		  (check-slots-loop (cdr slots_list))
   		  ))))