diff --git a/ordo/inventory.scm b/ordo/inventory.scm index 946f8be..468ff30 100644 --- a/ordo/inventory.scm +++ b/ordo/inventory.scm @@ -24,8 +24,7 @@ (define-method (initialize (object ) initargs) (next-method) - (slot-set! object 'vars (alist->hash-table (slot-ref object 'vars))) - object) + (slot-set! object 'vars (alist->hash-table (slot-ref object 'vars)))) (define (host . args) (apply make args)) diff --git a/ordo/play.scm b/ordo/play.scm index 8d4ce80..61c32c5 100644 --- a/ordo/play.scm +++ b/ordo/play.scm @@ -30,8 +30,7 @@ (define-method (initialize (object ) initargs) (next-method) - (slot-set! object 'vars (alist->hash-table (slot-ref object 'vars))) - object) + (slot-set! object 'vars (alist->hash-table (slot-ref object 'vars)))) (define (play . args) (apply make args)) diff --git a/ordo/playbook.scm b/ordo/playbook.scm index e980585..cdae7bb 100644 --- a/ordo/playbook.scm +++ b/ordo/playbook.scm @@ -24,8 +24,7 @@ (define-method (initialize (object ) initargs) (next-method) - (slot-set! object 'vars (alist->hash-table (slot-ref object 'vars))) - object) + (slot-set! object 'vars (alist->hash-table (slot-ref object 'vars)))) (define (playbook . args) (apply make args))