fixed a bug that added the 'add' command to a list
This commit is contained in:
		
							parent
							
								
									db79a736a2
								
							
						
					
					
						commit
						7ebf92132e
					
				
							
								
								
									
										3
									
								
								util.rkt
									
									
									
									
									
								
							
							
						
						
									
										3
									
								
								util.rkt
									
									
									
									
									
								
							| @ -117,7 +117,8 @@ | ||||
|   (if (and | ||||
|        (check-for-directory) | ||||
|        (check-for-file)) | ||||
|       (add-item-to-file (string:string-join (vector->list args))) | ||||
|        ;; The cdr here removes the command string "add" from being added to the file | ||||
|       (add-item-to-file (string:string-join (cdr (vector->list args)))) | ||||
|       (begin | ||||
|         (display-hash-ref messages:messages 'file-not-found) | ||||
|         (display-hash-ref messages:messages 'try-init)))) | ||||
|  | ||||
		Loading…
	
	
			
			x
			
			
		
	
		Reference in New Issue
	
	Block a user