def leveler to slask-it

parent 9caa8dd4
......@@ -2,7 +2,7 @@
#:use-module (ice-9 pretty-print)
#:use-module (system syntax internal)
#:use-module (oop pf-objects)
#:use-module ((oop dict) #:select (hset! mkw to-list leveler))
#:use-module ((oop dict) #:select (hset! mkw to-list slask-it))
#:use-module (language python exceptions)
#:use-module (ice-9 match)
#:use-module (srfi srfi-11)
......@@ -84,7 +84,7 @@
(kv (fold get-kv '() #'(arg ...))))
(if (and-map null? (list kw ww- kv))
#`(object-method
(leveler
(slask-it
(lambda (#,@as . u12345678)
(if (and (pair? u12345678)
(not (keyword? (car u12345678))))
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment