X-Git-Url: https://gitweb.factorcode.org/gitweb.cgi?p=factor.git;a=blobdiff_plain;f=extra%2Fredis%2Fredis.factor;h=c138dd654ed541e015ac997a69c144b4a56e1e7a;hp=98e89dca535cbfa656b71ad5ebe17c0b6803ec35;hb=5060e8bd5fdc18dc1bea82f06cf1b9a2699441b6;hpb=10e78dde3637ed0adca1972c76e7f283096cdcdc

diff --git a/extra/redis/redis.factor b/extra/redis/redis.factor
index 98e89dca53..c138dd654e 100644
--- a/extra/redis/redis.factor
+++ b/extra/redis/redis.factor
@@ -90,6 +90,14 @@ IN: redis
 : redis-info ( -- response ) info flush read-response ;
 : redis-monitor ( -- response ) monitor flush read-response ;
 
+! Lua
+: redis-script-load ( script -- script ) script-load flush read-response ;
+: redis-script-exists ( sequence -- sequence ) script-exists flush read-response ;
+: redis-script-flush ( -- ) script-flush flush check-response ;
+: redis-script-kill ( -- ) script-kill flush check-response ;
+: redis-script-eval ( script keys args -- result ) script-eval flush read-response ;
+: redis-script-evalsha ( sha keys args -- result ) script-evalsha flush read-response ;
+
 ! Redis object
 TUPLE: redis host port encoding password ;