Remove unnecessary return

This commit is contained in:
Ray Miller 2025-06-01 15:56:32 +01:00
parent 38f08e8ce4
commit b81433c75e
Signed by: ray
GPG key ID: 043F786C4CD681B8
3 changed files with 3 additions and 6 deletions

View file

@ -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))

View file

@ -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))

View file

@ -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))