OverviewFilesCommitsIssuesDocsReleasesPeers

hypercore-kb / opencog-kb / language-learning / mvp / init-gpu-ws.scm

8 lines · scm ref: 
;; Reconnect GPU nodes after reload (already open)
(set! *mi-gpu-node* (cog-node 'OpenclNode
  (string-append "opencl://:" *mi-kernel-path*)))
(set! *pmfg-gpu-node* (cog-node 'OpenclNode
  (string-append "opencl://:" *pmfg-kernel-path*)))
(set! *gpu-ready* #t)
(format #t "GPU reconnected: MI=~a PMFG=~a~%" *mi-gpu-node* *pmfg-gpu-node*)