shubhamkumar13 · August 17, 2021 06:20
diff --git a/sdf_help.scm b/sdf_help.scm
 (define (append* . args)
  (map (lambda (x) (if (list? x) (car x) x)) (apply append args))
 )

 (define (append-map proc lst) (apply append (map proc lst)))
	(define (append* . args)
	(map (lambda (x) (if (list? x) (car x) x)) (apply append args))
	)

	(define (append-map proc lst) (apply append (map proc lst)))