simpler proxy function for list builtin
This commit is contained in:
		
							parent
							
								
									2c454342da
								
							
						
					
					
						commit
						92542d0b78
					
				| 
						 | 
				
			
			@ -15,8 +15,7 @@
 | 
			
		|||
		      #fn("6000r1|I;" [])
 | 
			
		||||
		      #fn("6000r1|J;" [])
 | 
			
		||||
		      #fn("7000r2|}K;" [])
 | 
			
		||||
		      #fn("9000s0c0|v2;" [#.list])
 | 
			
		||||
		      #fn("6000r1|M;" [])
 | 
			
		||||
		      #fn("8000s0|;" []) #fn("6000r1|M;" [])
 | 
			
		||||
		      #fn("6000r1|N;" [])
 | 
			
		||||
		      #fn("7000r2|}O;" [])
 | 
			
		||||
		      #fn("7000r2|}P;" [])
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
| 
						 | 
				
			
			@ -16,7 +16,7 @@
 | 
			
		|||
   (lambda (x) (pair? x))            (lambda (x) (builtin? x))
 | 
			
		||||
   (lambda (x) (vector? x))          (lambda (x) (fixnum? x))
 | 
			
		||||
   (lambda (x) (function? x))        (lambda (x y) (cons x y))
 | 
			
		||||
   (lambda rest (apply list rest))   (lambda (x) (car x))
 | 
			
		||||
   (lambda rest rest)                (lambda (x) (car x))
 | 
			
		||||
   (lambda (x) (cdr x))              (lambda (x y) (set-car! x y))
 | 
			
		||||
   (lambda (x y) (set-cdr! x y))     (lambda rest (apply apply rest))
 | 
			
		||||
   (lambda rest (apply + rest))      (lambda rest (apply - rest))
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
		Loading…
	
		Reference in New Issue