Thu 15 Apr 2021 09:36:37

11111000000 · Apr 14, 2021 · d0cf337 · d0cf337
1 parent ea3e2f5
commit d0cf337
Showing 1 changed file with 3 additions and 2 deletions.
diff --git a/pen-core.el b/pen-core.el
@@ -7,14 +7,15 @@
   (str (buffer-substring (point) (max 1 (- (point) 1000)))))
 
 (defmacro ntimes (n &rest body)
-  `(dotimes (n ,n)
-     ,@body))
+  (flatten-once 
+   (cl-loop for i from 1 to n collect body)))
 
 (defun pen-surrounding-text (&optional window-line-size)
   (if (not window-line-size)
       (setq window-line-size 20))
   (str (buffer-substring (- (point) (save-excursion
                                       (dotimes) 10)) (max 1 (- (point) 1000)))))
 
+(ntimes 5 (message "hi"))
 
 (provide 'pen-core)