use (rest)

not not critical and more readable.
vygr · Nov 7, 2023 · cf69262 · cf69262
1 parent b4bf8c9
commit cf69262
Show file tree

Hide file tree

Showing 3 changed files with 4 additions and 4 deletions.
diff --git a/cmd/cat.lisp b/cmd/cat.lisp
@@ -28,4 +28,4 @@
 			;cat from stdin
 			(each-line cat-file (io-stream 'stdin))
 			;cat from args
-			(each cat-file (slice 1 -1 args)))))
+			(each cat-file (rest args)))))
diff --git a/cmd/dump.lisp b/cmd/dump.lisp
@@ -34,7 +34,7 @@
 (("-c" "--chunk")
 	,(lambda (args arg)
 		(setq chunk_size (str-as-num (elem-get 0 args)))
-		(slice 1 -1 args)))
+		(rest args)))
 ))
 
 (defun main ()
@@ -46,4 +46,4 @@
 			;dump from stdin
 			(dump-file (io-stream 'stdin))
 			;dump from args as files
-			(each (# (dump-file (file-stream %0))) (slice 1 -1 args)))))
+			(each (# (dump-file (file-stream %0))) (rest args)))))
diff --git a/cmd/rm.lisp b/cmd/rm.lisp
@@ -21,4 +21,4 @@
 			;rm from stdin
 			(each-line pii-remove (io-stream 'stdin))
 			;rm from args
-			(each pii-remove (slice 1 -1 args)))))
+			(each pii-remove (rest args)))))