Remove unnecessary return
This commit is contained in:
parent
38f08e8ce4
commit
b81433c75e
3 changed files with 3 additions and 6 deletions
|
@ -24,8 +24,7 @@
|
|||
|
||||
(define-method (initialize (object <host>) 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 <host> args))
|
||||
|
|
|
@ -30,8 +30,7 @@
|
|||
|
||||
(define-method (initialize (object <play>) 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 <play> args))
|
||||
|
|
|
@ -24,8 +24,7 @@
|
|||
|
||||
(define-method (initialize (object <playbook>) 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 <playbook> args))
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue