Simplify lazy-append nil? word
lazy-append tuples are always built using lappend. If list1 is nil, then list2 is returned, hence nil? on a lazy-append object is always false.db4
							parent
							
								
									0bf5c6bf0f
								
							
						
					
					
						commit
						76c76b81ed
					
				| 
						 | 
				
			
			@ -310,11 +310,7 @@ M: lazy-append cdr ( lazy-append -- cdr )
 | 
			
		|||
  lazy-append-list2 lappend ;
 | 
			
		||||
 | 
			
		||||
M: lazy-append nil? ( lazy-append -- bool )
 | 
			
		||||
  dup lazy-append-list1 nil? [
 | 
			
		||||
    lazy-append-list2 nil?
 | 
			
		||||
  ] [
 | 
			
		||||
    drop f
 | 
			
		||||
  ] if ;
 | 
			
		||||
   drop f ;
 | 
			
		||||
 | 
			
		||||
M: lazy-append list? ( object -- bool )
 | 
			
		||||
  drop t ;
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
		Loading…
	
		Reference in New Issue