density-qvm: provide missing kwargs to DENSITY-QVM

quil-lang · May 12, 2021 · de95ead · de95ead
1 parent 3666b53
commit de95ead
Showing 1 changed file with 6 additions and 5 deletions.
diff --git a/src/density-qvm.lisp b/src/density-qvm.lisp
@@ -63,11 +63,12 @@
     (set-to-zero-state (state qvm))))
 
 
-(defun make-density-qvm (num-qubits &key (allocation nil) &allow-other-keys)
-  (make-instance 'density-qvm :number-of-qubits num-qubits 
-                              :state (make-density-matrix-state 
-                                      num-qubits  
-                                      :allocation allocation)))
+(defun make-density-qvm (num-qubits &rest kws &key (allocation nil) &allow-other-keys)
+  (apply #'make-instance
+         'density-qvm
+         :number-of-qubits num-qubits
+         :state (make-density-matrix-state num-qubits :allocation allocation)
+         kws))
 
 
 (defmethod reset-quantum-state ((qvm density-qvm))