forked from cadence/breezewiki
		
	indie wikis: add Wapopedia/Drawn To Life
This commit is contained in:
		
							parent
							
								
									501dcaa3fc
								
							
						
					
					
						commit
						155a277f26
					
				
					 2 changed files with 16 additions and 11 deletions
				
			
		| 
						 | 
				
			
			@ -60,11 +60,11 @@
 | 
			
		|||
    (if (null? rest)
 | 
			
		||||
        `(cond ,@els)
 | 
			
		||||
        `(cond
 | 
			
		||||
          ,@els
 | 
			
		||||
          [#t
 | 
			
		||||
           (let ,(for/list ([var vars])
 | 
			
		||||
                   (cdr var))
 | 
			
		||||
             ,(transform-cond/var rest))]))))
 | 
			
		||||
           ,@els
 | 
			
		||||
           [#t
 | 
			
		||||
            (let* ,(for/list ([var vars])
 | 
			
		||||
                     (cdr var))
 | 
			
		||||
              ,(transform-cond/var rest))]))))
 | 
			
		||||
 | 
			
		||||
;; the syntax definitions and their tests go below here
 | 
			
		||||
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
		Loading…
	
	Add table
		Add a link
		
	
		Reference in a new issue